Új hozzászólás Aktív témák
-
Aaalbi
tag
hi
nem tom , lehet.
Más:
Már be tudok állítani adatbázis kapcsolatot.
Van a Tools menüben 1 Connect to Database nevezetű elem.
Ez mind nagyon szép.
Ezután megnyitom a dolgokat szépen.
adb.Open()
de ezután hogy hivatkozok a mezőkre
már mindent próbáltam
Itt egy textboxból akarok beleírni az adbbe az elhagyás eseményére
Dim adbconn As SqlClient.SqlConnection
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TextBox1.Leave
adbconn.Open()
adbconn.State.GetValues(''nev'') = TextBox1.Text
End Sub
End Class
Előre is köszönöm a segítséget.
Üdv -
Aaalbi
tag
Hi
Van nekem 1 Visual studio 2003.NET-em.
És a Visual Basic-ben ha SmartDeviceApplication-t akarok
írni. És szeretnék hasznmáln adatbázist , de a toolboxban csomó
contolom nem aktív csak szürkében látszanak az ikonjai.
Ez miért van?
Erre szeretnék 1 választ.
Köszönöm előre is.
Üdv -
#197
[HUN]Zolee
őstag
[HUN]Zolee
őstag
A progi belemegy egy végtelen ciklusba, de nemtudom mért? Bővebben: link itt a teljes pogram.
Option Explicit
Dim s(15), i, j, cap As Integer
Private Sub Command3_Click()
For i = 0 To 15
s(i) = 0
Next
i = 0
j = 0
For j = 1 To 15
Me.Print j, cap
'cikl:
Randomize
s(1) = j
cap = (Rnd * 14) + 1
For i = 1 To 15
'Me.Print i, cap
If s(i) = cap Then
'GoTo cikl
s(j) = 0
Else
s(j) = cap
End If
Next
Next
For i = 1 To 15
Command1(i - 1).Caption = s(i)
Next
End Sub -
#188
ollie
MODERÁTOR
[HUN]Zolee
#181
válasz
[HUN]Zolee
#181
üzenetére
Eh, már látom a hibát én is.
[Szerkesztve] -
#186
csiga997
őstag
[HUN]Zolee
#181
csiga997
őstag
válasz
[HUN]Zolee
#181
üzenetére
az nem lehet probléma, hogy egyszer kijelzőt egyszer meg kijeltőt írsz...?
-
#185
F-ECT$
titán
[HUN]Zolee
#184
F-ECT$
titán
válasz
[HUN]Zolee
#184
üzenetére
A left működik (#180), a right meg nem
-
#184
[HUN]Zolee
őstag
[HUN]Zolee
őstag
még mindig enm jó a számológépem előjel megváltoztatója
-
#182
F-ECT$
titán
[HUN]Zolee
#181
F-ECT$
titán
válasz
[HUN]Zolee
#181
üzenetére
Hülyeség, de így próbáltad már:
txt = Right ( txt , 1)
? -
#181
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Beírtam ezt a kódot és a helyett hogy elvenné az első betűt, az egész szöveget törli
txtkijelzo = Right(txtkijelto, Len(txtkijelzo) - 1)
itt a teljtes program :
Bővebben:� link -
F-ECT$
titán
Találtam egy jó kis kezdőknek szóló oldalt: Bővebben: link
-
#178
F-ECT$
titán
[HUN]Zolee
#177
F-ECT$
titán
válasz
[HUN]Zolee
#177
üzenetére
Lehet, hogy hülyeség, de szvsz $=sztring.
-
#176
csiga997
őstag
[HUN]Zolee
#173
csiga997
őstag
válasz
[HUN]Zolee
#173
üzenetére
b$=left$(a$,len(a$)-1)
-
Victorius
tag
Left(füzér, hossz).
Tehát pl.
sA=''Helló világ!''
sB=Left(sA, 5)
sB ez lesz: ''Helló''
A párja a right, az univerzális megoldás pedig a mid, amiel akár középről is kiemelhetsz részeket. A formátuma MID(füzér, kezdet, vég). A vég megadása nem kötelező, ilyenkor a füzér végéig megy. -
#173
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Lehet hogy láma kérdés, de még csak most kezdem a vb-t.
Hogy lehet egy szöveges változóból a karaktereket kitörölni egyesével hátulról?
pl.: asdf => asd => as -
JaneDoe
csendes tag
Helló, egy primitív problémám lenne, de nincs hozzá szaktudásom. Ha valaki tudna segíteni végtelenül hálás lennék.
A problémám, hogy számtalan e-mailt meg kellene változtatnom, úgy, hogy az e-mail subjectje úgy nézzen ki, hogy az üzenet küldési időpontjával (hónap nap év időpont) kezdődjön majd jöjjön egy szóköz és utána az üzenet eredeti subjectje.
Sejtem, hogy ez macro-ban nem lehet túl bonyolult, de alaptudásom sincs hozzá.
Bármi megoldás érdekel, akár egyetlen e-mailre vonatkozó megoldás is érdekel (gombhoz hozzárendelni tudom, szal majd minden e-mailben megnyomom a gonbot). Vagy ha egy folder minden e-mailjét így megváltoztatja az is jó, mert akkor átnyomom az érintett e-maileket egy külön folderbe...
Szal szinte bármi érdekel.
Előre is köszönöm,
JD -
F-ECT$
titán
''Debug.Print a_oReq.Tag & '' '' & a_oReq.Text'' - hogy ki nem szúrta a szemem.
''User defined type not defined'' hibát dob
Nagyjából tudom, hogy mi a kínja, csak még nem tudom, hogy hogy kell kijvítani
Azt nem értem, hogy miért közölnek olyan kódrészletet ami nem működik. (Vagy csak én vagyok béna ) -
anulu
félisten
hamár ilyen szépen összejöttünk...
VB .net alatt van egy ilyen bajom, hogy ki akarok csomagolni egy file-t adott helyre, és utána ezt el akarom indítani.
kicsomagot megoldja, de utána elszáll, mondván, hogy a file nem létezik. a kicsomag és a program indítás is shell('...',...)-el megy.
arra rájöttem, h még azelőtt akarja elindítani a progit, mielőtt az a kicsomaggal végezne. hogy lehet megoldani, hogy az indító shell várja meg, hogy a kicsomagolt file megjelenjen??
konkrétan:
''Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell(''rar e putty.rar'', AppWinStyle.Hide)
Shell(''putty.exe'', AppWinStyle.NormalFocus)
End Sub''
a putty helyére más fog kerülni, meg máshogy is lesz paraméterezve, most a fentebb leírtak a nagy bajom hogy kéne a 2 shell-t átalakítanom? -
F-ECT$
titán
Bővebben: link
Ezt szeretném végigcsinálni, és ehhez az kellene, hogy a projekthez hozzáadjak egy dll-t. Ezt hogy kell? -
#147
F-ECT$
titán
[HUN]Zolee
#146
F-ECT$
titán
válasz
[HUN]Zolee
#146
üzenetére
Az megvan, hogy OO programozás?
-
#145
Goose-T
veterán
[HUN]Zolee
#143
Goose-T
veterán
válasz
[HUN]Zolee
#143
üzenetére
A .NET objektumorientált, a 6.0 pedig csak annak látszik. Nincs időm most ecsetelni a különbségeket.
-
return.value
tag
válasz
[HUN]Zolee
#143
üzenetére
Az egyik .NET alapú, a másik pedig nem.
Evvel elmondtam az összes különbséget. -
#140
Goose-T
veterán
[HUN]Zolee
#134
Goose-T
veterán
válasz
[HUN]Zolee
#134
üzenetére
Röviden: ég és föld.
[Szerkesztve] -
#134
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Mi a különbség a VB6 és a VB.NET között?
-
sonar
addikt
Hali!
Egy olyan kérdésem lenne, hogy: ha én bináris v hexa adatokat akarok
küldeni a soros portra akkor azt hogyan kell megadnom?
A nagy kék könyvbe nem is találtam ilyenről semmit!
kicsit átfogalmazva, Milyen formában kell megadnom ha hexával v
bináris adatokkal akarok dolgozni?
(hexánál 0xXX ???)
üdv sonar -
#132
return.value
tag
Veron
#30
return.value
tag
Szia!
1. Én nem tudok ingyenes fordítóról. (Talán a mono project keretében csináltak VB.NET fordítót, de VB6-ost nem tudok.)
2. Nem hasonlít a Pacalhoz, sem a C-hez. Mindkettő erőssen típusos nyelv, mig a VB nem igazán az.
+1 link: Bővebben: link -
Victorius
tag
Azt én tudom. Mégis ugyanazokból a könyvekből lehet megtanulni. Legalábbis az alapjait.
Sajnos VBA-ból nem tudok semmilyen magyarul megjelent könyvről, illetve van egy régi, még a '97-es Excelhez, azzal meg nem sokat érek (nem azért , mert régi, hanem azért, mert Excel). Marad a súgó (no meg a makrórögzítő...
. -
-
Victorius
tag
-
#127
ollie
MODERÁTOR
[HUN]Zolee
#125
válasz
[HUN]Zolee
#125
üzenetére
Akkor már miért nem Delphi-t tanulsz?
-
#125
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Most fogok áttérni pascalról és kéne egy normális könyv. Én is láttam a kék könyvet, de a prog.hu-n semmi leírásszerű nem volt róla. Majd még körülnézek hátha van valmi hogy kb mi van benne + ienek, de ti is adhattok linket ha ráértek
-
Victorius
tag
Jó könyv, csak egy kicsit ''sokat akar a szarka...'' érzésem van tőle. (Jó vastag, de egyrészt annyi mindent szeretne átfogni, hogy aztán semmiben sem tud elmélyedni igazán, másrészt egyszerre akarja a ''vezessük végig a tanulót egy-egy példán, lépésről-lépésre (=jó értelemben szájbarágósan, receptszerűen) módszer szerint tanítani , ugyanakkor sok dologról csak utalásszerűen tesz említést).
Én másodikként a Computerbooks könyvét ajánlanám (Programozzunk Visual Basic rendszerben). Ha nem vagy egészen kezdő, akkor szerintem az a jobb. (Én az voltam (vagyok ehhez az egész Windows alatti programozáshoz, és az első időkben nagyon jó szolgálatot tett a kék könyv, de aztán inkább emezt forgattam.) Ja, van különy könyv hozzá programozási példákkal, feladatokkal.
Nekem is van egy kérdésem: a fetekete könyv nem csak a .NET-ről szól? -
#123
sonar
addikt
[HUN]Zolee
#121
sonar
addikt
válasz
[HUN]Zolee
#121
üzenetére
Programozás Visual Basic 6 nyelven
Van belőle kék (kezdőknek, haldóknak) -én is ezt használom- meg van a black a profiknak
Kiadja a kiskapu -
#122
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Senki se tud ajánlani eg yjó könyvet?
-
#121
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hy Tudtok ajánlani nekem valami jó Visual Basic 6 könyvet? Most fogom kezdeni ezt a nyelvet és kéne egy jó könyv.
[Szerkesztve] -
Victorius
tag
Nekem is lenne egy kérdésem.
Meg szeretném nézni egy Word dokumentumban a VB rutinokat, de a projekttallózóban nem is engedi megnyitni magát a projetktet sem arra hivatkozva, hogy ''zárolva van''.
Jelszóval védettel már találkoztam, az OK. De ez ellen lehet valamit tenni? -
Victorius
tag
Sonarr: Azok a sorok, illetve az str függvény használata, lehet, hogy fölösleges...
Elvieg arra jó, hogy a számból füzért (stringet -> str) csináljon, és azt rakja bele a label vezérlő Caption tulajdonságába (vagyis kiírja a képernyőre).
Lehet, hogy a Visaul Basic automatikusan megcsinál egy csomó típuskonverziót, köztük ezt is. Viszont a tudós könyvem azt írja, hogy ezeknek a konverzióknak nem mindig az az eredménye, amire mi gondolunk, amit mi szeretnénk, és így ravasz hibákat eredményezhetnek. Jelen esetben lehet, hogy nem lehet többféleképpen értelmezni és oknvertálni) ezt a kifejezést, de én azért az egyértelmű ''megfogalmazást'' szeretném megszokni.
A forrást küldöm! -
sonar
addikt
Helló Victorius
Nos mostanság nem igazán voltam a VB-vel elfoglalva.
Kipróbáltam, de vmi miatt nekem nem akart menni.
Ezeknél a soroknál mindig megállt: sz1.Caption = Str(a)
sz2.Caption = Str(b); sz3.Caption = Str(c)
Mit jelentenek ezek a sorok? Esetleg nem tudnád elküldeni egy rar-ban
ami neked működik.
üdv sonar -
Goose-T
veterán
Hali! Nem tudja valaki, mi annak a controlnak a neve, amivel file-t lehet megnyitni? Arra a formra lenne szükségem, ami bármelyik programban megjelenik, amikor rányomok a File menüben az Open pontra! Vagy ez valamelyik objektumnak a metódusa? Nem akarom a DirListBox-ot meg a társait használni, mert kőgagyik...
-
PWR
aktív tag
odaig jutottam el, hogy van egy clear gomb, ami minden fieldet kitöröl, azaz empty stringet helyez a fieldbe es a form betöltödesekor is vegig ''empty stringeli'' a fieldeket. ez viszont felvetett egy ujabb problemat: ha kitörlöm egy field tartalmat nem a clear gombbal, akkor annak tartalma nem empty string lesz es igy befolyasolja a keresest is. a megoldas valami olyan lenne, ha lehetne ellenörizni, hogy a fieldben most empty string van-e vagy abszolut semmi (is null). A gaz az, hogy az (if fieldname.value is null) ''object required'' hibaüzivel leall... van erre valami megoldas? csak kell lennie...
-
PWR
aktív tag
SEGICCSEEEG!!!
haat szivok! Problem: access 200-ben csinaltam egy query form-ot. mikor a luzer a Query gombra kattint, szerentem leellenörizni, hogy legalabb egy search criteria meg lett-e adva. Ezt ugy neznem meg, hogy if fieldname.value = 0 then stb. De nem müxik, valahogy a VB mashogy ertelmezi az üres mezöt mint en! Alapertelmezett erteknek megadtam a fieldbe ''emty string''-et, Null-t, nem megy! ugyse, hogy if fieldname.value is null. Pliiz HELP! -
Victorius
tag
Az a helyzet, hogy én is az voltam eddig
Kipróbáltam ezt itt alant, és a stop gombra megállt!
Szóval:
Private Sub Indit_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim openforms
Do
a = 0: b = 0: c = 0
If megall = True Then Exit Do
Do
b = 0: c = 0
a = a + 1
If a = 1000000000 Then Exit Do
If megall = True Then Exit Do
sz1.Caption = Str(a)
Do
c = 0
b = b + 1
If megall = True Then Exit Do
If b = 1000000000 Then Exit Do
sz2.Caption = Str(b)
Do
c = c + 1
If c = 1000000000 Then Exit Do
If megall = True Then Exit Do
sz3.Caption = Str(c)
If c Mod 1000 = 0 Then openforms = DoEvents()
Loop
Loop
Loop
Loop
vege:
End Sub
Hmm, hát ha azt mondod, kicsit eltúloztam a ciklusok számát, nyilván igazad van... (meg biztosan nem is túl szép a kód).
Tehát ez volt az indítógomb eljárása. A megállító csak annyit tartalmaz, mint a tiéd (átállítja igazra a megall változót).
Apropó megall változó. Hiányolhatod, hogy hol deklaráltam. Létrehoztam egy külön modult csak ennek a kedvéért:
Public megall as boolean
Ez azért van így, mert csak itt lehet globálisan deklarálni egy változót. Persze elképzelhető, hogy nem kell ennyire túlbonyolítani, de nálam csak így akaródzott menni.
Szóval ez a bizonyos DoEvents() utasításként is alkalmazható, de függvény formájában kell meghívni (és jelen esetben tökmindegy, mivel tér vissza).
Jó munkát! -
Victorius
tag
Hát, az az igazság, hogy rábukkantam valamire, de jó szokásomhoz híven kipróbálni nem tudtam. Szóval lehet, hogy erre van szükséged:
DoEvents()
''Az utasításként használt függvény egy esemény feldolgozásának idejére átadja a vezérlést az operációs rendszernek. Használata esetén a program ugyan lassabban működik, de a formok fogadják a beavatkozásainkat.''
A súgó (többek között) ezt írja:
''DoEvents is most useful for simple things like a l l o w i n g a u s e r to c a n c e l a p r o c e s s a f t e r i t h a s s t a r t e d, for example a search for a file.''
A használatához nézd meg a példát a súgóban (vagy kérdezz meg egy nálam okosabbat....
Remélem, tudtam segíteni. -
sonar
addikt
Helló!
Nos kicsit előbbre jutottam miközben a könyvet lapozgattam.
Rájöttem, hogy a Do Loop ciklus helyett a While --wend páros nekem a megfelelőbb. És arra is rájöttem, hogy miért nem reagált semmire se a start se a stop gomb. A megoldás egyszerű: létre kell hozni egy eljárást (add procedure) és a start/stop rutin végére oda kell bigyeszteni ennek az eljárásnak a nevét és akkor már frankó lesz. De még mindig van egy kis gondom: hogy ugye nekem a start lenyomása után a stopra már nem reagál, mert bent ragad a while wend ciklusban. Szerintem a gomb vmelyik tulajdonságának megváltoztatásával lehetne ezt orvosolni v nem?
Így néz ki a progi:
(Értelmet ne keressetek benne, csak otthon tanulok programozni!)
Dim X As Double, Y As Double, z As Double, ala As Boolean
Private Sub Command1_Click()
ala = True
Szamol
End Sub
Private Sub Command2_Click()
ala = False
Szamol
End Sub
Public Sub Szamol()
While ala = True
For X = 1 To 793479731 Step 0.1
Y = X * X
z = 2 * X - Y * 1.5
Next
Wend
End Sub
Azt kérdem még, hogy a következő Button tulajdonságok pontosan mit is jelentenek:
Cancel :True/False
CausesValidation
TabIndex
Tabstop
Tag
Előre is köszönök újfent minden hasznos információt.
>>>I wish you a Merry Christmas!<<< -
A gomb on Click eseményébe kell beletenni a kódrészt (ha a form sezrkesztőben rákkattintasz 2x a gombra, akkor automatikusan oda tesz a kódban), bár úgy tűnik, hogy ott is van az általad bemásolt kóda lapján. Viszont honnan tudod, hogy nem fut? Ránézésre semmit sem jelez ki program, szóval akár futhat is a nélkül, hogy tudnád. Tegyél be a végére egy msgbox függvényt, hogy lásd, hogy lefutott e.
-
Victorius
tag
Sajnos kipróbálni még nem tudtam, de azt javaslom, hogy azt az a változót pedig próbáld meg modulszinten globálisnak deklarálni:
public a as boolean
Ezt úgy írd be, hogy a form kódszerkesztő ablaka fölötti választóban válaszd ki a (General)-t. (Ekkor a jobbra elhelyezkedő választóban a (Declarations) jelenik meg.)
Sik sikert!
.
Új hozzászólás Aktív témák
Hirdetés
- Xiaomi Redmi Note 14 Pro Plus 12/512GB Újszerű,Dobozos,Kétkártyás 1év Garanciával!
- Prémium MAGYAR PBT custom keycap készlet eladó - Goblintechkeys
- DJI Air 2s Fly More Combo drón szett megkímélt állapotban, kofferrel
- ASUS ROG Strix G17 17.3" Notebook! i7-10750H / RTX 2070 Super / 1TB NVMe / 16GB DDR4! BeszámítOK
- Void RGB PC - i7 9700f, 16Gb RAM, RTX 2080Ti 11Gb stb.
- Eredeti, új Lenovo 330W töltők - ADL330SDC3A
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- Új! Targus - USB-C Dual HDMI 4K HUB - 2 HDMI-vel. Saját töltő nélkül 2 monitorral (120Hz)
- Dell USB-C, Thunderbolt 3, TB3, TB4 dokkolók (K20A) WD19TB/ WD19TBS/ WD22TB4, (K16A) TB16/ TB18DC
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest