Új hozzászólás Aktív témák
-
Polyák
tag
Ebből kiindulhatsz:
A Label1-be az ascii kódot irja a Label2-be hogy milyen betű. A Chr(x) parancsal, az x helyén ascii kóddal a betűt tudod megjeleniteni. A keypress-sel figyeli a lenyomásokat és ascii kódba adja vissza. Most nincs fenn nekem a VB ugyhogy nem tudom kipróbálni.
(VB6 ba irtam)Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = KeyAscii
Label2.Caption = Chr(KeyAscii)
If Label2.Caption = Chr(9) Then Label4.Caption = "Tabulátor"
If Label2.Caption = Chr(13) Then Label4.Caption = "Enter"
If Label2.Caption = Chr(32) Then Label4.Caption = "Szóköz"
If Label2.Caption = Chr(8) Then Label4.Caption = "Backspace"
If Label2.Caption = Chr(10) Then Label4.Caption = "Új oldal"
End If
End SubRemélem segitettem azért valamit. Ezt egy régi programomból másoltam ki.
-
Polyák
tag
Hali!
Most nincs VB a gépemen, de fejből hiretlen ez jutott eszembe, Remélem jól értelmeztem amit írtál. Szóval ez kell hogy a program inításánál az egyes indexü elem legyen kijelölve. Ha From Load eventhez ezt adod meg ugy lesz. List1 a listbox neve.List1.AddItem "egyes" 'index 0
List1.AddItem "kettes" 'index 1
List1.AddItem "hármas" 'index 2
List1.Selected(1) = TrueRemélem tudtam segíteni.
-
Polyák
tag
Ez érdekes!
Játék közben ha véletlenül lenyomtam a windows gombot, felugrott a start menü és a játékot lerakta tálcára. Nos ez elég idegesitő, föleg ha vmi akcio v. szimulátor játékról van szó. A windows gombot is le lehet tiltani?
Én nem VB-ben oldotam meg ezt.
egyszerüen kiszedtem a windows gombot. 
De gondolom jobb megoldás ha le van tiltva 
-
Polyák
tag
Sziasztok!
Na ki min dolgozott a nyáron Jönnek a hideg napok, ismét lecsücsülök a gép elé. Most van időm, a nyár alatt nem is láttam VB-t. 
Itt az ideje a folytatásnak.
Nem todom h mibe kezdjek, vagy hogy mik is a félbehagyott programjaim. Lusta voltam még megnézi is, hátha elmegy a kedvem. Nos, ki mit alkot éppen?
Üdv ujra!
-
Polyák
tag
Sziasztok!
A segítségeteket kérem! Van egy progim amit arra készítettem hogy egy mappában lévő (nagy felbontású) képekböl miniatüröket készít egy ''mini'' nevű mappába.
Végülis a progi kész, csak az az egy gixer van hogy a képet nem tudom lekicsinyíteni! Szal a felbontást kéne 2816*2112-ről kb 160*120-ra változtatni. Mindig az eredeti méretben menti el őket.
Tudna nekem segíteni valaki?
Előre is köszi!
-
Polyák
tag
De
Listboxba irás:
a = -1
Do Until a = File1.ListCount - 1
a = a + 1
s = File1.List(a)
List1.AddItem s
Loop
Fájba mentés:
Open ''c:\aaaaaa.txt'' For Output As #1
a = -1
Do Until a = File1.ListCount - 1
a = a + 1
s = File1.List(a)
Print #1, s
Loop
Close #1
Persze a Pattern-t beállítottam. Juj hogy ez nekem miért most jutott eszembe Igazából nem tudtam hogy a FileListBox ListBox-ként müxik. ájjj égő Bár én soha nem tanultam programozni. Éljen a NET!
[Szerkesztve] -
Polyák
tag
Pont erre gondoltam én is! De megelőztél.
Amugy érdekelne hogy hogyan lehetne megoldani ezt listbox-al. Mármint nekem csak a kilistázás kéne, mert el akarom menteni szöveges fájlként a mappában található fájlok listáját. Ez lehetséges? Már próbálkoztam pár dologgal de nem jött össze
[Szerkesztve] -
-
Polyák
tag
válasz
MrsCroft
#859
üzenetére
Hali!
Én kipróbáltam és müxik! Bár én nem ''.value'' hanem ''.text'' tulajdonságra hivatkoztam. Igy: (egy combobox és egy command van a form-on)
Sub errormessage()
MsgBox ''hiba!''
End Sub
Private Sub Command1_Click()
If Combo1.Text = '''' Then errormessage
End Sub
Private Sub Form_Load()
a = 0
Do Until a = 25
a = a + 1
Combo1.AddItem a
Loop
End Sub
Melyik VB amugy? -
Polyák
tag
Aki keres talál!
Private Sub Form_Load()
Label1.Caption = Winsock1.LocalIP
End Sub
Az összetevőknél használni kell a Microsoft Winsock Control 6.0 (SP5)-t (MSWINSCK.OCX).
http://a1vbcode.com [link]
Imádom ezt az oldalt Itt mindent megtalálok, persze példaprogikból. Igy talán könnyebb is mert amit keresek egyből látom gyakorlatban is. Csak ajánlani tudom!
[Szerkesztve] -
Polyák
tag
Sziasztok!
Bocs hogy régen irtam, (lett is volna mit ezekhez a hozzászólásokhoz ) de nem volt sok időm VB-vel foglalkozni. Meg amugy másra sem sok.
Nos már rég meg akartam kérdezni hogy hogyan tudom előhivatni az IP címem? Mondjuk MsgBox-ba vagy Label-be, mindegy csak olvasható legyen.
Mivel dinamikus IP-címem van, minden idításnál kirakna egy kisablakot amibe az IP-címem van. Ennyi lenne.
Köszi!
Elolvastam az előzményeket hát volt amin nevettem és volt amiben egyetértek! Amugy én is csak a saját szórakoztatásom és kényelmem érdekében programozok.
[Szerkesztve] -
Polyák
tag
Köszi!!
De ez vb6-ban igy néz ki:
Dim i As Integer
For i = 0 To List1.Listcount
List2.AddItem List1.List(i)
Next i
Amugy kösz! Nélküled erre nem jöttem volna rá! És ráadásul pont ezt az ''átrakást'' akartam megcsinálni !!
De ezzel még nem tudok egy elemre hivatkozni csak az összeset tudom átrakni. Hogyan tudnám csak az egyiket átdobni? Már egy ideje szenvedek vele.
A List1.Selected-re hibát dob:
Futtatásidejű hiba: 381
Érvénytelen tulajdonságtömb-index
Köszi a segítséget!
[Szerkesztve] -
#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.
-
-
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! -
-
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. -
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 -
#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. -
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] -
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! -
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] -
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] -
Polyák
tag
-
-
Polyák
tag
válasz
Jester01
#628
üzenetére
Köszi.
Az este folyamán rájöttem mind a 3 kérdésremre. Kreáltam probaprogit oszt kifundáltam mindent. Minden sikerült és köszönom neked is és ollie-ek is!
Ezek amugy hogy működnek és mire jók?
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename); -
Polyák
tag
Köszönöm a válaszod!
Még nem próbáltam ki, de elmagyaráznád nekem ezt a függvényt?
Azt értem hogy a ''\''-ig levágja.
mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
1. miért kell hozzáadni egyet?
2. és a 255?
3. Mi a külömbség az inStr és az inStrRev között?
Előre is köszi! -
Polyák
tag
Kéne egy kis segítség!
Van egy képnézegető progim. Társítva vannak hozzá a jpg formátumú képek. Tehát ha megnyitok egy képet ezzel a progivan indul. Ez müxik.
A progi ablaka alján van egy Drive egy Paht egy File list. Amikor futtatom a progit itt tudom keresni a képeket és megnyitni. Azt szeretném hogy amikor képet nyitok meg (kep = command ; kepmegj.Picture = LoadPicture(kep) - érted.) akkor a Drive, Path és File elemen a kép útvanala legyen.
Pl.: A kép útvaonala ''e:\kepek\vegyes\uj.jpg''. A Drive1.Drive legyen ''e'', a Path1.path legyen ''e:\kepek\vegyes'', és a File1.path is ugyan így.
Nos ezt hogy lehetne megoldani? Nagyon fontos lenne!
Előre is köszi!
[Szerkesztve]
)
De gondolom jobb megoldás ha le van tiltva 
Itt az ideje a folytatásnak.
Új hozzászólás Aktív témák
Hirdetés
- eBay-es kütyük kis pénzért
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- Nintendo Switch 2
- Apple asztali gépek
- Milyen videókártyát?
- Melyik tápegységet vegyem?
- BestBuy topik
- Milyen okostelefont vegyek?
- Motorola Edge 50 Neo - az egyensúly gyengesége
- További aktív témák...
- Napi 700 ft tól elvihető RÉSZLETRE BANKMENTES HP 840 G11 Ultra 5
- Iphone 15 Plus 128GB Pink Dobozos 12 Hónap Garancia
- Samsung Galaxy A13 64GB, Kártyafüggetlen, 1 Év Garanciával
- LG 48C3 - 48" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
- Konzol felvásárlás!! Xbox Series S, Xbox Serries X
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest