Visual Basic - Szoftverfejlesztés fórum

üzenetek

hozzászólások


T_bee
(aktív tag)

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.


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!


jeges
(senior tag)

az attól függ, mit szeretnél vele csinálni. :U


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]


Sopi
(senior tag)

Senki :(?


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.


Sopi
(senior tag)

UP


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 :U


jeges
(senior tag)

egyébként a választ a szerver visszadobta ''bad address'' üzenettel. :Y
nem értem, de ez van :U


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]


lapa
(veterán)

upsz.


lapa
(veterán)

meginupsz...


lapa
(veterán)

uccsóupsz, utána elengedem asszem.


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

üzenetek