Keresés: - Visual Basic - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#2462 mariann71 újonc T_bee #2460

Új Válasz 2014-06-18 06:54:55 #2462
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

mariann71

újonc

válasz T_bee #2460 üzenetére

Köszönöm, ez szuper lett, pontosan erre volt szükségem. Mégegyszer nagyon köszönöm!!! Mariann71
#2323 eINN csendes tag T_bee #48

Új Válasz 2014-01-04 10:05:31 #2323
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

eINN

csendes tag

válasz T_bee #48 üzenetére

bocsesz... 2004-es bejegyzésre válaszoltam, sorry.
#929 szigisz85 csendes tag T_bee #49

Új Válasz 2007-10-24 15:29:25 #929
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szigisz85

csendes tag

válasz T_bee #49 üzenetére

Nem tudod feltelepíteni és nem is működik. Ha csak nincs virtuálisan egy windows rendszered, amin belül már tudod futtatni a programot.
#217 Victorius tag T_bee #216

Új Válasz 2005-05-10 08:21:36 #217
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Victorius

tag

válasz T_bee #216 üzenetére

Próbáltad már a VAL függvényt?

számváltozó=VAL(füzér)

Azt hiszem, tud oktálist és hexadecimálist is értelmezni. Úgy tudom, megáll az első jegynél, ami nem szám. Ha ennél összetettebb dolog kell (mint mondjuk amit leírtál), akkor azt magadnak kell ''megprogramoznod''.
#91 DanielSky csendes tag T_bee #80

Új Válasz 2004-12-12 12:11:01 #91
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

DanielSky

csendes tag

válasz T_bee #80 üzenetére

Valószinüleg dhtml lesz a kiterjesztése, ezért dhtml
Egy külön dll-ben tárolja le a kódokat.
Még nem próbáltam de valószinüleg lehet olvasni ugyanugy szövegfájlokat dhtml-ből és a felhasználó és jelszó gond is meg lesz oldva...
#61 T_bee aktív tag T_bee #60

Új Válasz 2004-06-12 18:59:29 #61
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz T_bee #60 üzenetére

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.
#52 blemidon tag T_bee #48

Új Válasz 2004-06-09 18:50:32 #52
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

blemidon

tag

válasz T_bee #48 üzenetére

ListBox, ComboBox és MS FlexGrid első indexe 0, tehát az első elemet 0-s indexszel tedd be, ne egyessel. Nem tudsz kapásból pl 5. helyre tenni, ha nincs előtte annyi elem.

Linuxon ezek nem fognak menni, miven windowsos programok. Nem tudom, de sztem biztos van már linuxra vmilyen VB compiler, de azt sztem nem a Microsoft írta
#47 blemidon tag T_bee #46

Új Válasz 2004-06-04 02:13:41 #47
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

blemidon

tag

válasz T_bee #46 üzenetére

Ez nem csak arra jó. Ha jobban megnézed, ez 1 eljárás, ami a listboxod bármelyik elemének értékét adja vissza számként. Ha törölsz 1 elemet, akkor tudod hogy melyik volt az (az éppen kijelölt elemet a List1.Text függvénnyel kérdezheted le. Amit már írtam régebben hogy a kijelölt elem indexe, ugyanott lekérdezhető az értéke is ezzel) Mivel az éppen kijelöltet fogod törölni, ezt az értéket átadod ennek a függvénynek, és visszakapod a számértékét integerben.

Private Sub List1_Click()
MsgBox List1.ListIndex
MsgBox ListItemFromText(List1.Text)
End Sub

Itt simán q-ból kivonod a ListItemFromText(List1.Text)-et, és kész. Az épp az az elem ami ki van jelölve, tehát az aktuális törlendő.
#45 blemidon tag T_bee #44

Új Válasz 2004-06-03 13:32:53 #45
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

blemidon

tag

válasz T_bee #44 üzenetére

A listboxban 5*6 stb formátumban vannak az elemek.
A következő függvény egy ilyen stringet alakít vissza az eredménnyé:

Private Function ListItemFromText(s As String) As Integer

Dim x As Integer
Dim s1 As String, s2 As String

s1 = Left(s, InStr(s, ''*'') - 1)
s2 = Right(s, InStr(s, ''*'') - 1)
ListItemFromText = Val(s1) * Val(s2)

End Function

Meghyvod az épp törölni kívánt listelemmel, és visszaadja hogy mennyi annak a számértéke, ezt már ki tdod vonni a q-ból.
#44 T_bee aktív tag T_bee #43

Új Válasz 2004-06-03 11:23:41 #44
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

T_bee

aktív tag

válasz T_bee #43 üzenetére

na. már rájöttem erre is
DE.
van egy progi, ami bekér két számot text1 és text2 vezérlőben, a és b változóba.

Private Sub Command1_Click()
If i = False And j = False Then
c = a
c = c + ''*''
c = c + b
o = a * b
index = a * b
List1.AddItem = c
q = q + o
Text3.Text = q
End If
End Sub

és ha a lista egyik elemét törlöm akkor hogy lehet annak az értékét( tehát az elem c változójának értékét) törölni egy másik Q változóból?
#42 blemidon tag T_bee #40

Új Válasz 2004-06-02 22:03:05 #42
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

blemidon

tag

válasz T_bee #40 üzenetére

Milyen lista? Milyen elemek? Milyen beírás? Milyen indexek?
Légyszíves próbálj meg konkrétabban kérdezni, akkor talán válaszolni is tudunk
(Már az előző listcontrolos kérdésed sem volt vmi egyértelmű
#39 Sopi senior tag T_bee #38

Új Válasz 2004-06-02 20:49:56 #39
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Sopi

senior tag

válasz T_bee #38 üzenetére

THX D!!!!
Ugyan nem ez lett a vége, de hála neked megtudtam, hogy kell írni, mivel én mindenre gondoltam, csak arra nem, hogy simán Index

Private Sub imgTaska_Click(Index As Integer)
n = Index
End Sub

Ennyi
KIRÁLYSÁG!