hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...
Private Sub Command4_Click()
If List1.Text <> '''' Then
If mag >= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag >= 10 And szele <= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag <= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x''))
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
End If
Else
d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
End If
End Sub
na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.
Visual Basic - Szoftverfejlesztés fórum
hozzászólások
T_bee
(aktív tag)
Piár
(csendes tag)
Sziasztok!
Egyetlen rövid kérdés:
Excel makróban hogy tudok cellatartományra hivatkozni, ha a tartomány megadásához változót szeretnék használni?
A roppant gyors segítséget igen nagyon köszönném!
Piár
(csendes tag)
Előző probléma megoldva!
Egy '' volt rossz helyen!
Jeges-nek THX a gyors reagálásért!
[Szerkesztve]
Sopi
(senior tag)
Van egy egyszerű problémám, de nagyon idegesítő.
Hogy kell meghívni a Timert?
Azt akarom, hogy a kattintás után csak 5mp-el később történjen meg minden.
Így próbáltam:
Csináltam egy ''Timer1''-t, az Interval beállítottam 5000-re, majd próbáltam meghívni:
Private Sub cmdKezd_Click()
Timer1()
...
End Sub
Még próbálgattam másféleképpen, de sehogyse megy .
PLS Help me
Sopi
(senior tag)
Amíg a válaszon gondolkodtok, íme még egy kérdés:
Kilépés előtt el akarom menteni a registrybe a vj nevű változót
Private Sub mnuKilepes_Click()
SaveSetting (''Jatek'', ''Statisztika'', vj)
End
End Sub
Tehát
Programok neve: Jatek
Szakasz neve: Statisztika
Változó, aminek az értékét tárolni kéne: vj
Ez a hiba:
Compile error:
Expected: =
Ha mondjuk odaírom a végére, hogy ... = X, akkor nem ír ki hibát, de így sem tudom utána kiolvasni.
Valaki írja le, hogy kéne kezelni ebben az esetben a registryt.
Közben eszembejutott, hogy talán előre csak meghatározott szakaszokba lehet rendezni. Akkor mibe kéne?
(Most vj Integer, ez jó, vagy más kéne?)
[Szerkesztve]
blemidon
(tag)
Nem próbáltam ki, de sztem nem kell zárójel, mert SaveSettings nem függvény hanem csak eljárás.
blemidon
(tag)
Biztos hogy nemmegy zárójelek nélkül? Légyszives először próbáld ki amit válaszolnak, mondd meg azzal mi a gond, és utána UPolj
Piár
(csendes tag)
Sziasztok!
Excel makrobol szeretnek elinditani egy onkicsomagolo allomanyt.
El is indul, de szeretnem ha a macro futasa csak akkor folytatodna, ha befejezodott a kicsomagolas.
Ha igy inditom:
(Csomag egy string, az onkicsomagolo allomany nevet tartalmazza)
Dim Kibont
Kibont = Shell(Csomag, vbNormalFocus)
AppActivate Kibont, True
akkor: Run-time error '5':
Invalid procedure call or argument
hibaüzenetet kuld, miutan elindult a kicsomagolas.
Mi lehet a problema, van-e valakinek mas otlete a problema megoldasara?
Koszi!
jeges
(senior tag)
ment méél
ide is írom, h én spec külön makróba írnám a kicsomagolást, és külön makróba a többi folyamatot.
az az érdekes, hogy nálam a leírt kód abszolút lefutott. az viszont igaz, hogy az excel nem vár a kicsomagolás eredményére, ezért írnám két makróba.
persze, lehet, h van szebb/jobb megoldás is
jeges
(senior tag)
egyébként a választ a szerver visszadobta ''bad address'' üzenettel.
nem értem, de ez van
lapa
(veterán)
ez féloff, mert vbs (!), de ide teszem fel.
1. tudok fuction-t beágyazni vbs-be? tehát olyan programrészt, amit aztán csak meghívok, amikor kell.
2. műxenek a common dialog-ok (open file, mittomén) vbs-ben? ha igen, vki meg tud dobni egy sampléval esetleg? köszi
[Szerkesztve]
X-COM
(nagyúr)
1. tudsz létrehozni eljárásokat vbs-ben
sub akármi(paraméterek)
end sub
ja és persze van function is
function akármi(paraméterek)
akármi=izé
end function
2. hát nem tudsz api hívásokat meghívni, de valami bazihekkelt dll, vagy ocx segítségével megoldható, valahol olvastam erről
[Szerkesztve]
lapa
(veterán)
2. cucut asszem megtaláltam, jól jött a segítség. Bővebben: link. majd megnézem műxik-e, addig is hálás
T_bee
(aktív tag)
Hello
lenne pár kérdésem:
1. ha csinálok valami dhtml oldalt VBvel akkor azt ki lehet menteni index.html nek?
ha igen hogy?
2. meg lehet-e csinálni olyat, hogy vannak regisztrált felhasználók, és ők a saját jelszavukkal tudnak csak bejelentkezni? tehát el lehet-e menteni a felhasználó-jelszó tömböt valami külső fájlba, amiben később tudok keresgélni?
köszi