- Apple asztali gépek
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Melyik tápegységet vegyem?
- Kormányok / autós szimulátorok topikja
- ZIDOO médialejátszók
- OLED TV topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- iPad topik
- Nyaralás előtti hardverszemle
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
Új hozzászólás Aktív témák
-
#799
Jester01
veterán
[HUN]Zolee
#798
Jester01
veterán
válasz
[HUN]Zolee
#798
üzenetére
Az sem sokkal bonyolultabb (viszont sokkal jobb) ha mindig csak akkora véletlenszámot generálsz ahány betű még van. Így pontosan n-1 darab véletlenszámra lesz szükséged.
-
#798
[HUN]Zolee
őstag
Polyák
#794
[HUN]Zolee
őstag
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is
-
lajafix
addikt
válasz
stargazer
#795
üzenetére
Az EXCELben van makró rögzítése funkció, használd azt! Előállítja a kódot, amit csak kicsit kell módosítanod.(6 éve használtam utoljára)
1. szvsz a Cells(1,1).VALUE megadja a bal felső cella értékét, amit beletehetsz a fáljnyitásba
2. Ugye van az a jó tulajdonsága az EXCELnek, hogy CTRL+nyílra odaugrik az utolsó értékhez a tartományban. Elindítod a makrórögzitőt és egy próbatartományban megcsinálod ezt, és kész az alap kód, amit szabhatsz. -
stargazer
senior tag
hello!
tudnátok nekem segíteni abban, hogy hogyan lehet excel vba-ban megnyitni egy olyan file-t, aminek a nevét (kiterjesztés nélkül) egy cella tartalmazza? valamint azt is tudnom kéne hogyan tudom megtalálni egy oszlopban az utolsó cellát ami még adatot tartalmaz...
előre is köszi! -
#794
Polyák
tag
[HUN]Zolee
#793
Polyák
tag
válasz
[HUN]Zolee
#793
üzenetére
köszi! én is hasonlóra gondoltam csak nem tudom hogy hogyan csináljam azt hogy kétszer ne dobja ugyan azt a random. Te tudod esteleg? Nem külömbözik sztem olyan sokba a vb6 és a 7.
-
#793
[HUN]Zolee
őstag
Polyák
#792
[HUN]Zolee
őstag
-
-
Polyák
tag
Azzal pofon egyszerű. Az a baj a browser-rel hogy nincs stretch funkciója és a képen nem pont a szegélyhez illeszti. Próbáld ki.
Olyan kéne nekem, mint ahogy Image-ba lehet betölteni képet winyóról, csak netről szedné le.
Gondoltam arra is hogy lementené a saját mappájába (megerőstés nélkül, észrevehetetlenül) és onnan töltené be Image-ba. Ezt StartDoc-kal próbáltam de az az alapértelmezett böngészőben nyitja meg a képet. Szal ezt sem tom hogy hogyan csináljam.
Melyik lenne jobb megoldás? Illetve melyikben tudnál segíteni?
Amugy az a dodi diassembler csak VB4-hez jo. -
Polyák
tag
Hali!
Azt szeretném megkérdezni hogy hogyan Tudob PictureBox-ba, vagy inkább Image-ba képet betölteni internetről?
Probáltam igy:
Image1.Picture = ''http://mittomén.hu/kep.jpg''
meg igy is:
Image1.Picture = LoadPicture(''http://mittomén.hu/kep.jpg'')
De gondoltam hogymen lesz ilyen egyszerű. Miért is lenne az?
Hogyan tudnám ezt mégis megcsinálni?
A válszt előre is kösz!
[Szerkesztve] -
Polyák
tag
Hi all!
Van egy pár progim aminek már nincs meg a forrkodja de lusta vok ujra megírni őket.
Kellenek belőle infok hogy mit hogyan is kell, mert már nem nagyon emléxem.
Ezeket a progikat valahogy vissza lehet ''forgatni'', vagy vissza ''fordítani''??
Fontos lenne!
Mikor még TurboPascal-lal foglalkoztam akkor volt ilyen progim hozzá, de vb-hez nem találtam.
Előre is köszi! -
ptamas
csendes tag
Hali!
Biztosan volt mar ilyen kerdes a forumon, de nem volt idom vegigbongeszni
Visual Basic .NET nyelvvel szeretnek foglalkozni, de eddig semmit nem tudok rola. Milyen konyvet javasolnatok egy teljesen kezdonek a tanulashoz?
Elore is koszonom a valaszokat!
Bye: Tamás -
J3richo
tag
Sziasztok!
Nemrég fogtam hozzá a DarBasic tanulásához és nagyon tetszik a dolog. Most viszont az egyik résznél elakadtam és segítséget kérnék tőletek. Nem tudom, hogy a dark basic ugyanaz-e mint a visaul basic, de megkérdezem attól itt, hátha:
Szóval vannak ezek a tömbutasítások:
SAVE ARRAY Filename, Array Name(0)
LOAD ARRAY Filename, Array Name(0)
EMPTY ARRAY Array Name(0)
ARRAY INSERT AT TOP Array Name(0)
ARRAY INSERT AT BOTTOM Array Name(0)
ARRAY INSERT AT ELEMENT Array Name(0), Index
ARRAY DELETE ELEMENT Array Name(0)
NEXT ARRAY INDEX Array Name(0)
PREVIOUS ARRAY INDEX Array Name(0)
ARRAY INDEX TO TOP Array Name(0)
ARRAY INDEX TO BOTTOM Array Name(0)
ARRAY INDEX TO QUEUE Array Name(0)
ADD TO QUEUE Array Name(0)
REMOVE FROM QUEUE Array Name(0)
ARRAY INDEX TO STACK Array Name(0)
ADD TO STACK Array Name(0)
REMOVE FROM STACK Array Name(0)
Return Integer=ARRAY COUNT(Array Name(0))
Return Integer=ARRAY INDEX VALID(Array Name(0))
Nem tudom pontosan, hogy ezek mire jók vagy ha tudom is nagyából, akkor se tudom egész jól használni. Pl a save array-jal ugye tömböt mentünk ki egy fájlba, de miután undim-elem, amit elmentettem és visszatöltöm a tömböt és ki akarom iratni, pl tomb(1,2), akkor hibát ír ki. Próbáltam neten keresgélni segítség után, de konkrét bő leírást nem találtam ezekhez. Valaki segítene megértetni ezeket? Pls Vagy ennek a nyelvfajtának külön téma kell? :S
[Szerkesztve] -
-
Polyák
tag
válasz
Jester01
#763
üzenetére
Hali!
Köszi!
Ezt bogarászom éppen, de nem jutottam sokra.
Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
Köszi előre is! -
Polyák
tag
Ha annak hívják, akkor igen!
Mint a hangerőszabályzó ikonja meg egyes virusírtók ikonja meg az msn ikonja(zöld muki), stb.
Nos, azt szeretném hogy programom ne látszódjon a taskbar-ban (ezt sikerült megoldanom, nem volt nehéz), csak a ''systray'' ikon látszódjon és onnan elérhessek jobbklikkel opciókat, mint pl a hangerőszabályzónál a ''Hangerőszabályzó megnyitása'', ''Hangtulajdonságok belállítása''.
Elöre is köszi! -
Polyák
tag
Üdv mindenkinek!
Hogyan tudom azt megcsinálni, hogy az óra mellett egy kis ikon megjelenjen ahogy a hangerőszabályzó vagy a messenger ikonja is. Ha rákattintok megjelenjen egy menü, de biztos értitek miről beszélek. Nos, ezt hogyan tudom megoldani? Azt meg tudtam csinálni hogy a taskbarban ne jelenjen meg de ezt viszont már nem tudom hogy is csináljam!
Előre is köszi! -
Polyák
tag
Hali!
Nos, nem biztos hogy jól értelmezem, hogy mit is akarsz, de én igy próbáltam, és jó is:
Sub txtText_lostfocus()
Dim tmp As String
tmp = txtText
tmp = Format(tmp, ''YY,MM,DD'')
txtText.Text = tmp
End Sub
De lehet félreértettem vmit.
Amugy a 35620 szám az egy értelmes dátum formátum. Ez a szám a 1997.07.09
dátumot takarja. Excelben meg is nézheted. Beirod egy cellába ezt a számot és dátumformátumot adsz neki.
Nos remélem tudtam segíteni és nem mondtam hülyeséget. -
sonar
addikt
Erre varjatok gombot, már mindjárt szétütöm a gépet ezt miért csinálja
sub txtText_lostfocus
dim tmp as string
tmp=txtText
tmp=Format(tmp,''######0.00'')
txtText=tmp
end sub
és ha alapban 1.00 van benne akkor mikor lelépek vmi 35620.00 számot ad be
de miért?
Már variáltam több stringel átpakolom egyik változóból a másikba de hiába -
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$ -
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? -
#746
Polyák
tag
[HUN]Zolee
#745
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ája -
#745
[HUN]Zolee
őstag
Polyák
#744
[HUN]Zolee
őstag
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] -
#744
Polyák
tag
[HUN]Zolee
#743
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.
-
#743
[HUN]Zolee
őstag
Polyák
#742
[HUN]Zolee
őstag
Ü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] -
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] -
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 Sub -
#739
sonar
addikt
[HUN]Zolee
#738
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. -
#738
[HUN]Zolee
őstag
[HUN]Zolee
őstag
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] -
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] -
#736
Polyák
tag
[HUN]Zolee
#735
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! -
#735
[HUN]Zolee
őstag
Polyák
#734
[HUN]Zolee
őstag
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 -
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! -
#733
Polyák
tag
[HUN]Zolee
#729
Polyák
tag
válasz
[HUN]Zolee
#729
üzenetére
Nagyon Köszi!
-
#728
Polyák
tag
[HUN]Zolee
#727
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! -
#726
Polyák
tag
[HUN]Zolee
#725
Polyák
tag
válasz
[HUN]Zolee
#725
üzenetére
És Form-ra hogy lehet?
-
#716
Polyák
tag
Kilimanjaro
#714
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] -
#715
matekmatika
tag
matekmatika
tag
Megtaláltam.
-
#714
Kilimanjaro
csendes tag
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
válasz
matekmatika
#712
üzenetére
De hye vagyok textbox-ot akartam írni, Textboxba, hogy lehet szöveget tördelve bevinni?
Köszi -
#712
matekmatika
tag
matekmatika
tag
Sziasztok!
VB6- ban List.Box-ba bevitt szöveget hogyan tudom tördelni?
A ''vbCrLf'' nem működik itt. -
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] -
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]
átláthatóbb később könnyebb módosítani
Ha PictureBox-ba szerkeszted a képet, akkor ez jó lesz:
)
Új hozzászólás Aktív témák
Hirdetés
- Apple asztali gépek
- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Peugeot, Citroën topik
- Beárazták az projektoros Ulefone-t
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- Sorozatok
- Melyik tápegységet vegyem?
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Synology NAS
- EA Sports WRC '23
- További aktív témák...
- BESZÁMÍTÁS! ASUS ROG STRIX Z390-E GAMING alaplap garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
- Felújított szerverek, storage-ok, hálózati eszközök Enterprise szinten, minden gyártótól
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 XT GAMER PC termékbeszámítással
- AKCIÓ! VALVE INDEX virtuális valóság szemüveg garanciával hibátlan működéssel
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest