Új hozzászólás Aktív témák
-
Nemnagyon pörög a topik
Sikerült előrejutnom. Márcsak 1 probléma van, hátha valaki tudja.
a Selection.Find -nál szeretnék wildchardokat használni kereséshez. Engedélyeztem is a használatukat. Amit szeretnék keresni: [space]bármi[kukac]bármi[.]bármi[space]
ezt kellene lefordítani. De ez így nem jó: <[ ]*[@]*[.]*[ ]> egyrészt mert a @ is jelent valamit, meg a space-t sem kezeli így....
Hogy kellene?
Köszibocsi de sajnos ebben nem tudok segíteni.
és igen, ez a topik mostanában nem igazán szaporítja a hozzászólásokat. -
-
Sziasztok !
Segítségre lenne szükségem,csináltam egy listboxot feltöltöttem elemekkel(1,2,3)
és dolgozok is ezekkel az adatokkal viszont ha nem választom kimondjuk az egyes programinditás után akkor hibát dob ki hogy nem tud mit csinálni a double változóval.Hogy lehet hogy alapértelmezésben aktív legyen az az egyes?Előre is köszönöm a választ
-
Szerintem jó dolog az a gomb, gondolom mikor pl valamivel játszol és pont akkor zavarnak msn-en bizony jól jön [nem kell kilépni] (persze ez tárgytalan ha kilépsz mikor mész játszani)
De ez is csak alkalmazásfüggő, valamelyik egyszerűen nem reagál rá.
Vagy ha valami közben gyorsan megkell valamit nézni a neten de nem akarsz kilépni a játékból akkor se jön rosszulErre van kettő másik, jobb megoldásom: "Ctrl + Esc" és "Alt + Tab"
Ez esztétikusabb és véletlenül biztos h nem nyomod be. Én igy szoktam.
-
Szia!
Én nem sok mindenen...
alig volt szabadidőm. Csupán egy két apróságot ami a munka megkönnyítését segítette.
Az egyik az a windowsban bizonyos gombokat letiltott (különösen a CapsLock-ot)
Majd belinkelemEz é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!
-
Igazából egy sms-fal progin dolgozom mostanában, (már elég jól áll a project) nem lesz egy extra, de falusi projectoros célra okés lesz.
Utánna meg valszeg csinálok egy póker játékot amit lanon is lehet játszani
ebben most érzek kihívástHogy müködik ez az SMSfal? Van egy szervere ami fogadja az sms-t és küldi a programnak, vagy ez a progi fogadja csatlakoztatott telefonról? Érdekelne ez a dolog, ha akarod el is magyarázhatnád a müködését.
Köszi üdv -
Nem, mostanában sajnos nincs annyi időm vb-zni.
Keresek vmi vb-s izgalmas kihívást csak még nem tudom mi legyen az.
Vmi kicsit komolyabb project amivel el leszek meg tanulni is lehet belőle.
Nincs vmi jó ötleted/tek?Hali! Igazából nem tudom mit lehetne kitalálni. Már minden foglalt.
Akármit csináltam eddig VB-ben olyan már volt Nem tudtam eddig újat és nagyot alkotni. -
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 megvan, sikerült értelmeznem a forráskódot, mostmár működik minden. Nem gondoltam volna, hogy formokkal kell operálnom...
Még egyszer hálás köszönet!Szivesen. Ha kell segítség, ez a topic rendelkezésedre áll!
Itt bárki szívesen segít ha tud!
Csak Excel makro-val foglalkozol vagy mint ''.exe'' állományokat is készítesz, illetve szeretnél?
[Szerkesztve] -
nos
akkor újra...
excel környezetben szeretnék egy olyan makrót futtatni, melynek kimenete az, hogy az A1 cellába az a text kerül, melyet megadok.
Eredetileg úgy képzeltem el, hogy indítás után egy felbukkanó ablakban a ''Mit szeretnél az A1 cellában látni?' kérdésre beütök valami szöveget - akármit - s az fog megjelenni az excel tábla A1 cellájában.
Remélem, most érthetőbb voltam...
THX sonar -
Helló!
Most kezdtem el foglalkozni a Visual Basicel. Szeretnék egy olyan programocskát készíteni amivel .txt fájlokat jeleníthetek meg és a fájlokhoz kapcsolhatok képeket. Azt szeretném elérni, hogy oldalról kiválasztok egy cikket azt megjeleníti egy szövegdobozban és alatta a hozzá fűzött kép. Oblivion hoz lenne ez az util. Segítseéget köszönöm előre is. msn:morpeus007@hotmail.com -
hello! érdeklődnék hogy tudnátok-e segíteni, mert abszolut értetlen vagyok ebben a VB-ben, de programozás tárgyhoz kell... van egy vmi programrészem és arról kellene eldöntenem hogy mit ad ki eredményül... de mivel nem értek hozzá és VB sincs a gépemen ezért foggalmam sincs... a részlet a következő
Dim ch As String
Const basic As String = ''Basic''
Dim p As Integer
For p = 1 To Len(basic)
ch = Mid(basic, p, 1)
s = s + Chr(Asc(ch) + 1);
Next p
és az a kérdés hogy mi lesz s értéke... azt kiderítettem hogy a basic feliratott olvassa be és abból válogat ki vmi betűket, de nem értek hozzá... szal plz help
előre is köszönöm -
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] -
Ha nem ragaszkodsz a listboxhoz akkor használj FileList controlt (legalábbis VB6-ban van ilyen).
A következőket épísd be a gombba:
File1.Path = ''c:\excel''
File1.Pattern = ''*.xls''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] -
Hali
Ráérőidőmben megnézem őket. Lehet hogy csak lassan egyesével tudom majd leírni neked őket, de megpróbálok mindent. Persze csak azt amit meg tudok oldani. Amugy azt hogy érted az 2. 3. feladatban hogy ''kiírja''? MessageBox-ba vagy hova írja ki?
üdv: Polyák -
Szisztok.
Adtak ki nekünk tételeket amik vizsgán lesznek és ezekböl egy párat meg tudtam csinálni, de a töbségéhez akkár hogy bűvölöm a kódot nem jutok előrébb. Ebbekéne segíteni.
Feladatok:
1. bekér egy számot és feltölti vele az aktiv munkalapkijelölt tartományát
2. ki írja az A1 cella értékét
3. ki írja az A1:A10 tartomány celláinak összegét
4. bekér egy számot és beírja az A1-be, a négyzetét meg kiírja
5. megkeresi az A1:A10 tartományban a 7-et
6. megkeresi az A1:A10 tartomány legnagyobb elemét
7. kifesti a bekért szinkódnak megfelelően az A1:A5 tartományt
8. kölönböző szinekkel festi ki az A1:E5 tartományt
9. vastag piros betüvel kiemeli a tartomány éegnagyobb elemét
10. 0 végjelig bekér számokat és a párosakat az A, a páratlanokat a B oszlooba írja be
11. bekér egy szint (a válasz ''kék'', ''zöld'', vagy ''piros'' lehet) és ezzel a szinnel kifesti az aktuális cellát (más szinnel nme kell foglalkozni, a kék szinkódja 5, a zöldé 4, a pirosé 3)
12. bekér egy számot, és ennek a számnak megfelelő szinüre fesi sz aktív munkalap A1:C3 tarományát! A makró a bekérés-festés müveletét mindaddig ismételje, amíg 50-nél nagyobb számot nem adunk meg.
13. bekér 3 számot és elhelyezi őket nagyság szerint az A1:A3 tarományban
14. megfordítja az A1:A10 értékeit a B1:B10-be
15. tipizálás: bekér egy értéket és kiírja, hogy szöveg, szám vagy egyéb típusú
16. a kijelöt tartományban meghatározza a cellák számát, a bennük szereplő értékek összegét és a legkissebb értéket, majd ezeket az adatokat egyetlen szövegdobozban megjeleníti
17. függvény-, eljárás-hívás, paraméter-átadás
Tudom hogy sok :O ,de nem szertnék megbukni ebböl. Ezért kéne segíteni.
Köszi előre is, és bocsi hogy ijenekkel terhelek beneteket.
[Szerkesztve] -
Hi All,
Hátha ti tudjátok a választ:
Ha van egy combobox-om feltölött értékekkel de ez mellé gépelni is lehet még és szeretném leellenőrizni, hogy kitöltötték-e, vagy kiválasztottak-e valamit, akkor standard esetben:
if combobox.value='''' then errorrmessage
és ez működik is, DE
ha azt csinálom, hogy kiválasztok/vagy beírok valamit és azt kitörlöm akkor már nem működik és átcsúszik az ellenőrzésen pedig értéke nincs.
Ugyanaz a helyzet ha Null-ra ellenőrzöm, vagy ha megnézem a hosszát mert ez esetben nem 0 a hossz hanem semmi, szó szerint semmi.
Látott már valaki ilyet?? -
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]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] -
Ma olyat szivok amilyet még ember nem látott.
IDE-n belül simán futtatom a progit, de ha le akarom fordítani akkor ad egy üres hiba ablakot és leáll.
Egy sima ablak piros x el benne és nincs ott semmi szöveg!
Csak egy Ok meg sugó.
Természetesen sugóra nem jön be semmi
Ok-ra meg nem csinál semmit.
Ilyennel már találkozott vki?Én nem, de viccesen hangzik!
Ez a Microsoft átka -
A VB helpjébe belepillantva ezt találtam:
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next iKö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] -
Polyák
tag
hirtelen ez jutott eszembe (bár én 7 be gondolkodok nem 6 ba)
tömbe felosztod a szót karakterekre, majd random számgenerátorral(paraméterként a szó hosszát megadva) és kikötésbe beleteszed hogy a random nem dobhat azonos számot.
kicsit macerás, de elvbe jó -
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! -
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]Szia!
Nekem is megvan a darkbasic, de nem indul el sajna valami oknál fogva. Sajnos nem ugyan az mint a vb. Ha el tudnám indítani talán tudnék segíteni. Láttam róla lépeket meg olvastam is róla sokat.
[Szerkesztve] -
Ezt egy kb. 4 éves projektbõl bányásztam elõ, azóta szerencsére nem láttam VBt
A TrayInitialize után meg kell hívni a TrayAddIcon-t, attól lesz ikon. Kilépés elõtt ezt törölni kell.Hali!
Van ez a sor:
TrayAddIcon(ByVal lID As Long, ByRef sTip As String, ByVal hIcon As Long)
tehát igy néz ki mikor előhívom:
TrayAddIcon lID, sTip, hIcon
de:
mi az az lID és az sTip? a hIcon-hoz az ikon elérérsi utvonala kell?
Köszi előre is! -
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! -
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! -
De én számot akartam nem dátumot!
És vesszőt kell tenni akkor jó lesz.
Próbáld ki ha számot irsz be és vessző helyett pontot irsz akkor írja ezeket a hülyeségeket.Azért nem jó ponttal, mert a pont az írásjel és nem tizedesvessző! Ez miatt volt a hiba?
Azon viszont gondolkodok hogyan tudnád megoldani a másik problémád. Érdekes kérdés. De engem is érdekelne. -
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ábaHali!
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. -
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? -
Polyák
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]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 -
Polyák
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]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. -
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 SubHali 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] -
Polyák
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 -
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! -
Polyák
tag
6-ba könnyebb rajzolni , majd teszek fel netre leírást, ha megtalálom otthon.
Nagyon Köszi!
-
Polyák
tag
oda még nem próbáltam rajzolni csak simán a form-ra.
-
Polyák
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!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] -
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]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! -
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]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!!!! -
Én passzolok, sose foglalkoztam PictureBox-al ilyen mélységig, de szerintem bmp-be vhogy ki lehet menteni.
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] -
Sziasztok!
Még pár éve írtam egy rövid progit ami tartalmazott egy ilyen sort:
Tasks(''Programnév'').Visible = False
Akkor rendben ment de most valamiért ezt a hibát adja:
AktiveX component cant create object
Nem vagyok otthon VB-ben és nem emléxem már mit hogy csináltam akkoriban. Miért nem jó most? Talán valami komponens kell neki? A weben ennyit találtam róla:
http://msdn2.microsoft.com/en-us/library/aa212443(office.11).aspx
Légyszi segítsen aki tud. Meg vagyok lőve. -
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség. -
Vb.net
De feltehetném úgy is a kérdést, hogy miként kell formot úgy mozgatni, hogy közben ne legyen 100%-on a proci és a form elemei is látszódjanak.Időzítővel?
Timer1_Timer()
If Form1.Top > 1500 Then ' 1500 magasig emelkedik
Form1.Top = Form1.Top - 120
End If
End
Lehet hogy hülyeséget mondok de én asszem igy csináltam. -
Sziasztok!
Nektek profiknak biztos egyszerű, de nekem mivel nem is tanultam és igazából nincs is rá szükségem kicsit nehéz.
Szóval excel visual basic részében kéne kis progit írni, ami 1-tő 10-ig végignézi a számokat, aztán kiírja az összes páros szám átlagát, majd még kilistázza, hogy hány darab páros szám van, vagy a páros számokat konkrétan.
Tudom, hogy ez nem túl sok, szóval ha valamelyikötök lenne olyan kedves és akár priviben megoldaná nekem, annak örök hálám -
Az a1vbcode.com-on [link] nézted már?
Én rákerestem a ''program'' és a ''memory'' kulcsszavakkal és kidobott 2 oldalt, de nem tudom h melyik kell neked. Igazából nem a témával kapcsolatos progik voltak amiket megnéztem de aztán lehet hogy van. 5 progit néztem meg. -
vb6
C nekem azért lenne praktikus mert progizok néha mikorvezérlőket is és asm-mel kiegészítve hatékony lenne. Amugy semmi bajom nem lenne az egésszel ha nem ilyen szarul lenne megcsinálva.
A frameworkel is az a bajom,hogy nekem sok régi gyengébb gépre kell kódolnom és ott eszméletlen lassú v nem is fut...Én Dev-C++t használtam. a Visual C++ nekem magas. Szvsz a VB sokkal könnyeb és érthetőbb mint a C++. Vagy lehet hogy ez saját vélemény. Még a végén lehet hogy én is C++-ozni fogok megint.
ÁÁÁ , kétlem. Marad a VB -
Ja ez van. VB6 már kicsit idejét múlt, ezek az újak meg a .NET frameworkkel ...
Én már gondolkodtam rajta hogy belevágok inkább a C/C++ baHiiiiiijjj!
A C++ az engem kiakasztott! de nem volt olyan vészes. Amugy annyira bonyolult nekem hogy már nem is nagyon emlékszek rá. Van pár progim forrkóddal együtt ha kell. de szeintem maradj a VB-nál. Te amugy melyik VB-t használod? -
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod.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); -
Használd az inStr és az inStrRev kereső funkciókat
pl: mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
ha a filename =''e:\kepek\vegyes\uj.jpg''
akkor a végeredmény uj.jpg lesz
A meghajtó betűjelét nagyon egyszerű megállapítani (ugye csak az első karaktere a filenévnek), a maradékot meg e kettő levágásából kapod.
Egyébként ez VBScript, de gondolom VB-ben is ugyanígy kell használni.
[Szerkesztve]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]
)
Itt az ideje a folytatásnak.
átláthatóbb később könnyebb módosítani
Új hozzászólás Aktív témák
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- exHWSW - Értünk mindenhez IS
- Forza sorozat (Horizon/Motorsport)
- Milyen autót vegyek?
- Álláskeresés, interjú, önéletrajz
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Fejhallgató erősítő és DAC topik
- A Linux megnégyszerezte magát a Steamen — a Microsoft ismét ígérget
- BestBuy topik
- Nintendo Switch 2
- További aktív témák...
- 24 magos AMD Threadripper alapú munkára kiváló félgép, 128GB RAM-mal
- HP ZBook Fury 15 G7 i7-10850H 32GB 512GB SSD Quadro T2000 4GB FHD HUN bill, szép állapotban eladó
- Eladó MacBook Pro 16,1 2019 CTO
- új 0 km es garanciás lenovo loq rtx 5050 8gb
- Eladó teljesen újszerű karcmentes Samsung Galaxy Watch Ultra
- 0PERCES BOSE QuietComfort Ultra Headphones, zajszűrős, Bluetooth fejhallgató!
- ÁRGARANCIA!Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- i9-11900K / RTX 3080 / Z590i / 32GB 4000MHz / 1TB NVMe / 750w GOLD! BeszámítOK
- AKCIÓ! Philips 223V5LHSB2/00 22 75Hz FHD TN 5ms monitor garanciával hibátlan működéssel
- iPhone 16 Pro 256GB 91% (1év Garancia)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest