Ú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!

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