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.

Print Screen

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

Először én is erre gondoltam!
De azt hittem van erre más megoldás is.

Amug hogy lehet a PictureBox-ban kévő képet elmenteni? Pl. ha van bele rajzolva valami?

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

Én passzolok, sose foglalkoztam PictureBox-al ilyen mélységig, de szerintem bmp-be vhogy ki lehet menteni.

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

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.

Talán így
commondialog.showsave
SavePicture Picturebox.Image commondialog.filename

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

Sanjan nem jó. Ezt írja ki: Szintaktikai hiba!

Végülis mindegy mert jó nekem a Print Srceen is

Amugy köszi!

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

Pedig nekem müxik. Lehet vmit félre gépeltem v gépeltél
ha jól emléxem vessző kell az image és fájlnév közé

[Szerkesztve]

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

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.

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.

Sziasztok!
VB6- ban List.Box-ba bevitt szöveget hogyan tudom tördelni?
A ''vbCrLf'' nem működik itt.

De hye vagyok textbox-ot akartam írni, Textboxba, hogy lehet szöveget tördelve bevinni?
Köszi

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!

Megtaláltam.

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.

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!

Erre én is kiváncsi lennék!

Amugy hogy tudok PictureBox-ba rajzolni?

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

szerintem ugyanugy mint a formra,
rajzolással még sosem foglalkoztam.

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

És azt hogy kell?
Én sem foglalkoztam rajzolással soha. Ezért is álltam neki.

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

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.

Ha jól emlékszem ezekre nincs speciális függvény, az exp és a log megfelelõ használatával lehet õket számolni.

Jester

hatványozni a ^ jellel lehet pl. x^5
egyéb fügvények a system.math oszályba találsz

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

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.

oda még nem próbáltam rajzolni csak simán a form-ra.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

És Form-ra hogy lehet?

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

[link]
tettem fel pár progit, van közte olyan is, amit a VB könyvhöz kaptam.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

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.

6-ba könnyebb rajzolni , majd teszek fel netre leírást, ha megtalálom otthon.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

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!

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!

Köszi! Jó egy oldal!
Kár hogy angol

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

Nagyon Köszi!

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

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.

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/

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.

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.

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/

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!

Egész jó ötlet. meglássuk hogy tudom összehozni 7 be
kösz

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

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 Sub

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

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.

Ü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/

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.

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/

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ája

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

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.

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!

Szia! Ez remek!
Köszi!
Igy télleg jobb!
Amugy sub on belül hazsnálhatom megint a call parancsot?

Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.

Persze, azthiszem 4-es mélységig bár ebbe nem vagyok biztos

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!