Hirdetés
-
Már azelőtt szoftvert írnak a chipekhez, hogy elindulna a gyártás
it A Cadence szuperszámítógépe a chipek tervezését és a hozzájuk kapcsolódó szoftverek megírását igyekszik felgyorsítani.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
PlayStationre és Switch-re is megjelent a Grounded
gp "Drágám, a kölykök már újabb platformokon is összementek."
Új hozzászólás Aktív témák
-
Polyák
tag
Lenne egy kérdésem. (lehet hogy most hülyének fogtok nézni! )
Van egy PictureBox-om. Abban van több PictureBox. Ezekből a kis PictureBox-okból kialakul egy kép a nagyobb PictureBox-ban.
Nos, ezt a kialakult képet ki lehet valahogy menteni? Vagy legalább vágólapra másolni? Vagy hülyeséget kérdeztem? Épp ezzel próbálkozok.
(Késő este ... holnap suli )
A válasz(oka)t köszönöm!
[Szerkesztve]Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Próbáltam vágólapra másolni, de nem igazán azt csinálta amit akartam. Képet mentett vágólapra (Paint-ba illesztettem be), de nem az a kép volt ami a PictureBox-ban van, hanem egy VB ikon.
Private Sub Command1_Click()
Clipboard.SetData Picture1.Picture
End Sub
Vagy nem ezt kellet volna csinálnom? Szöveggel müxik.
Clipboard.SetText Text1.Text
De képpel miért nem?
mod: helyesírás és fogalmazás
[Szerkesztve]Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Megvan hogy mi volt a baj. A CommonDialog-nak CommonDialog1 a neve, a PictureBox-nak meg Picture1
Így jó:
CommonDialog1.Showsave
SavePicture Picture1.Image, CommonDialog1.FileName
EXTRA NAGY THNX!!!!
Müxik!!!!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Müködik meg minden jó, de sajnos nem úgy ahogy én akartam.
Annak a PictureBox-nak a tartalmát menti el amiben a többi PictureBox van de azokat nem. Sajnos. Marad a PrintScreen.
Amugy kösz! Már ezt is tudom hogyan kell!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
matekmatika
tag
Sziasztok!
VB6- ban List.Box-ba bevitt szöveget hogyan tudom tördelni?
A ''vbCrLf'' nem működik itt. -
matekmatika
tag
válasz matekmatika #712 üzenetére
De hye vagyok textbox-ot akartam írni, Textboxba, hogy lehet szöveget tördelve bevinni?
Köszi -
Kilimanjaro
csendes tag
Hello!
Elég amatőr kérdésem van. Csináltam egy képszerkesztőt a visualben, minden fayán működik, csak azt nem tudtam megcsinálni , hogy a létrejött képet, hogyan lehetne lementeni. Vki segítsen!!!!! Köszi! -
matekmatika
tag
Megtaláltam.
-
Polyák
tag
válasz Kilimanjaro #714 üzenetére
Pont most tudtam meg én is Ha PictureBox-ba szerkeszted a képet, akkor ez jó lesz:
Private Sub Command1_Click()
CommonDialog1.Showsave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub
De hozzá kell adni az összetevőknél a ''Microsoft Common Dialog Control''-t. (COMDLG32.OCX) Be kell csak simán szúrni egy CommonDialog-ot és erre kell hivatkozni a kép mentésekor.
Ennyi az egész!
[Szerkesztve]Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
sonar
addikt
Azt tudja vki,hogy az Public Even() mire jó? Hogyan kell kezelni?
[Szerkesztve]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Polyák
tag
Most is egy nagyot fogok kérdezni!
Hogyan kell hatványozni, gyököt vonni, ill köbgyököt vonni??Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Köszi. A gyökvönásra majd rájövök.
De rajzolni hogy tudok PictureBox-ba?Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
válasz [HUN]Zolee #725 üzenetére
És Form-ra hogy lehet?
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
válasz [HUN]Zolee #727 üzenetére
Köszi de az a gond hogy én VB6-ot használok, ezek meg VB.NET-esek ha jól látom. Az meg nincs meg nekem.
Amugy Köszi rendes vagy! Majd kiderítem hogyan tudok rajzolni!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
sonar
addikt
Funkció billentyűket hogyan lehet használatra birni?
Van vkinek vmi jó kis leírása?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Találtam egy egész hasznos oldalt. http://www.pgacon.com/visualbasic.htm
vannak rajt források is [link]A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Polyák
tag
válasz [HUN]Zolee #729 üzenetére
Nagyon Köszi!
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Hali!
Van egy gondom!
Ha rajzolok PictureBox-ba, nem folyamatosan húzza a vonalat hanem pöttyöket rajzol. Főleg ha gyorsan rajzolok. Ennek biztos hogy így kell működni? Vagy valamit már megint nem értek?
A formon csak egy PictureBox van, a neve kep
Private Sub Form_Load()
kep.DrawWidth = 5 'vonalvastagság
End Sub
Private Sub kep_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
kep.PSet (X, Y)
End If
End Sub
Hogy tudom ezt megoldani?
Előre is köszi!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
[HUN]Zolee
senior tag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Polyák
tag
válasz [HUN]Zolee #735 üzenetére
Köszi, de 6-ba nem így van sajnos.
Kaptam egy példát MSN-en, este megnélzem aztán megírom hogy mi volt a baj.
Amugy Köszi a gyors választ!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Megvan a megoldás!
Forrkód:
Option Explicit
Dim fMouseDown_X As Single
Dim fMouseDown_Y As Single
Dim bMOUSE_DOWN As Boolean
Private Sub Form_Load()
Me.ScaleMode = vbPixels
Me.BackColor = vbBlack
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
bMOUSE_DOWN = True
fMouseDown_X = X
fMouseDown_Y = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bMOUSE_DOWN Then
Dim oldDW As Long
Dim oldFC As Long
oldDW = Me.DrawWidth
oldFC = Me.ForeColor
Me.DrawWidth = 3
Me.ForeColor = vbRed
Me.Line (fMouseDown_X, fMouseDown_Y)-(X, Y)
fMouseDown_X = X
fMouseDown_Y = Y
Me.DrawWidth = oldDW
Me.ForeColor = oldFC
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bMOUSE_DOWN = False
End Sub
Ez a formra rajzol, de PictureBox-ra is lehet vele. Egy üres form-ba illeszd be.
Tök jó! Nem pöttyöz!!
[Szerkesztve]Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
[HUN]Zolee
senior tag
van egy ilyen típusu tömböm :
Structure ttipus
Dim id As Integer
Dim nev As String
Dim aber As Integer
Dim tber As Integer
Dim tszam As Integer
End Structure
ezt hogy tudom fáljba menteni, és visszaolvasni?
VB 7 be kell megoldani.
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
sonar
addikt
válasz [HUN]Zolee #738 üzenetére
pl csinálsz egy ilyet
Dim sor as string
sor= str(id) & '','' & nev...
aztán
open ''file'' for output as #1
output (sor, #1)
close #1
és ezt az egészet egy for ciklusba
vissza olvasni meg inputra nyitod meg a fájlt és szétdarabolod a stringet.A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
sonar
addikt
Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
mentse le ezt a forrást.
Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
üdv sonar
Option Explicit
Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
'******************Function Key*******************
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Sub Form_Load()
Call FunctionClear
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
Text1 = ''F1'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F2) Then
Text1 = ''F2'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F3) Then
Text1 = ''F3'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F4) Then
Text1 = ''F4'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F5) Then
Text1 = ''F5'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F6) Then
Text1 = ''F6'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F7) Then
Text1 = ''F7'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F8) Then
Text1 = ''F8'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F9) Then
Text1 = ''F9'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F10) Then
Text1 = ''F10'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F11) Then
Text1 = ''F11'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F12) Then
Text1 = ''F12'' & vbCrLf & Text1
End If
End Sub
Public Sub FunctionClear()
' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
' kiolvasással megszűnik ez a probléma
GetAsyncKeyState (VK_F1)
GetAsyncKeyState (VK_F2)
GetAsyncKeyState (VK_F3)
GetAsyncKeyState (VK_F4)
GetAsyncKeyState (VK_F5)
GetAsyncKeyState (VK_F6)
GetAsyncKeyState (VK_F7)
GetAsyncKeyState (VK_F8)
GetAsyncKeyState (VK_F9)
GetAsyncKeyState (VK_F10)
GetAsyncKeyState (VK_F11)
GetAsyncKeyState (VK_F12)
End SubA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Polyák
tag
Hali sonar!
Köszi! Még jól jöhet!
Lenne egy kérdésem is:
A legtöbb programban lehet nyelvet válsztani. Ezt sok ugy csinlálja hogy van egy pl. hungarian.ini fájl és abban vannak a szavak. Valahogy így:
[Form1]
SpeedButton4=Beállítás ''L''
SpeedButton5=Réteg előnézet ''K''
SpeedButton6=Render ''J''
SpeedButton11=100
SpeedButton12=OK
Label13=100%
SpeedButton14=Stop
SpeedButton15=Kijelölés eleje ''F''
SpeedButton16=Kijelölés vége ''T''
CheckBox1=Auto előnézet ''U''
CheckBox3=Auto render
CheckBox6=Nagyít
TabSheet1=Effekt
Label1=Szín:
Label2=Vastagság 1:
Label3=Vastagság 2:
SpeedButton1=...
Label7=Fényesség:
Label10=Penge:
SpeedButton2=...
Label11=Üres
Label12=Üres
Label14=0 ms
Label25=Elmosás:
Label26=Ív:
Label27=Elmosás:
Label28=Ív:
CheckBox10=
CheckBox11=
...
Ezt egy program magyar.ini állományából másoltam ki.
Hogyan tudok hivatkozni ezekre a cimkékre? Először ugy probáltam ahogy régebben mondtad nekem.
Line Input #filenum, sor
De ez egy sort olvas be. Ha mondjuk a 213.sort akarom előhívni akkor 213x kell előhívnom a parancsot. De ez nem igazán praktikus.
Hogyan tunék én ezekre a cimkékre hivatkozni?
Remélem te tudod, vagy valaki tudja.
A választ előre is köszi!
[Szerkesztve]Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
[HUN]Zolee
senior tag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Polyák
tag
válasz [HUN]Zolee #743 üzenetére
Köszi!
Hát nem igazán értem, de majd kibogozom. Ha jó vb6 ba, akkor meg is fogom érteni. Talán.
Amugy köszi.
Kéne valami példarpgi hogyan is kell ezt alkalmazni.Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
[HUN]Zolee
senior tag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve]''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
Polyák
tag
válasz [HUN]Zolee #745 üzenetére
Ezt írja ki hibának:
Futásidejű hiba: 91:
Az objektumváltozó vagy a With blokkváltozó nincs beállítva
Ez mit jelent? Lhet hogy 6ba nem igy kell.
elsején hajnali 5kor még volt energiád ilyenhez? Gratula! Én most keltem egy órájaAz alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Megvan a megldás a kérdésemre ily késői órán!
Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
Private Sub Combo1_Click()
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$
Close #1
End If
If Combo1.Text = ''Angol'' Then
Open ''c:\2.txt'' For Input As #2
Line Input #2, cimke1$
Line Input #2, lab1$
Line Input #2, lab2$
Line Input #2, lab3$
Line Input #2, txt1$
Line Input #2, txt2$
Close #2
End If
Me.Caption = cimke1$
Label1.Caption = lab1$
Label2.Caption = lab2$
Label3.Caption = lab3$
Text1.Text = txt1$
Text2.Text = txt2$
End Sub
Private Sub Form_Load()
Combo1.AddItem ''Magyar''
Combo1.AddItem ''Angol''
End Sub
Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!
Erre rájöhettem volna előbb is nem?Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
sonar
addikt
Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Új hozzászólás Aktív témák
- Lenovo Tab m8 4th gén
- Játékra!: Ryzen 5 4500 II RTX 2070 8GB II 16 GB RAM II 1 TB Nvme SSD
- Samsung Galaxy TAB S9 Ultra 12/512GB 5G VADONATÚJ BONTATLAN eladó!
- GAMER PC - RTX 3060 12GB - i5 10400F/11400F - 16GB 3000MHZ DDR4 - 240GB SSD - 500GB HDD
- Dell Latitude 7370 13col FHD IPS, M5-6Y57, 8GB DDR3, 128GB SSD,Újlenyomatolvasó/Win11