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

• blemidon tag

  #70

  #69 Sopi

  2004-07-10 11:15:33

  Új Válasz

  Ú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

  

  blemidon

  tag

  #69 Sopi

  #69 Sopi

  UP

  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
  

• blemidon tag

  #68

  #67 Sopi

  2004-07-05 13:21:34

  Új Válasz

  Ú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

  

  blemidon

  tag

  #67 Sopi

  #67 Sopi

  Senki ?

  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

  #58 2004-06-11 22:28:13

  Új Válasz

  Ú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

  

  blemidon

  tag

  ActiveX controlok vannak emailezésre, MAPISession és MAPIMessages néven, azokat kéne megnézned.
  Baloldalt ToolBaron jobbgomb, Components, és a Controls fülön beixeled a Microsoft MAPI Controls 6.0-t, akkor meg fognak jelenni ezek is.

• blemidon tag

  #52

  #48 T_bee

  2004-06-09 18:50:32

  Új Válasz

  Ú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

  

  blemidon

  tag

  #48 T_bee

  #48 T_bee

  hi
  
  mi a hiba atz alábbi kóddal? mer nekem sajna nem fogadja el
  
  pivate sub command1_click
  
  dim szam as string
  dim i as byte
  i=i+1
  list1.additem szam,i
  
  end sub
  
  na ez nem akar mennni, és nagyon zavar, hogy nem tudok az elemeknek külön indexet adni
  
  köszi

  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
  

• blemidon tag

  #47

  #46 T_bee

  2004-06-04 02:13:41

  Új Válasz

  Ú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

  

  blemidon

  tag

  #46 T_bee

  #46 T_bee

  köszi, de ez csak az utolsó beírás értékének törlésére jó jó
  olyan kéne, hogy az éppen kiválaszott elemének az értékét lehessen törölni

  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ő.
  

• blemidon tag

  #45

  #44 T_bee

  2004-06-03 13:32:53

  Új Válasz

  Ú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

  

  blemidon

  tag

  #44 T_bee

  #44 T_bee

  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?

  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.
  

• blemidon tag

  #42

  #40 T_bee

  2004-06-02 22:03:05

  Új Válasz

  Ú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

  

  blemidon

  tag

  #40 T_bee

  #40 T_bee

  tudod... A jó űttörő ott segít ahol tud
  na nekem is van kérdésem, hogy lehet a listáról kiválasztott elemeket törölni?
  meg hogy lehet a listán a beírásokhoz tartozó indexeket összeadni?

  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ű
  

• blemidon tag

  #35 2004-05-31 01:08:11

  Új Válasz

  Ú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

  

  blemidon

  tag

  Amit meg kifelejtettem:
  
  A ''különböző értékeket megadni''nál arra gondolsz hogy hogyan lehet feltölteni?
  Mert az se bonyesz:
  
  List1.AddItem ''text''
  

• blemidon tag

  #34 2004-05-31 00:56:11

  Új Válasz

  Ú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

  

  blemidon

  tag

  Hi!
  
  Az elemre kattintás vizsgálata egyszerű: a listbox Click() metódusában le tudod kérdezni az éppen aktuális elem indexét:
  
  Private Sub List1_Click()
  MsgBox List1.ListIndex
  End Sub
  
  Ennyi.
  
  
  [Szerkesztve]

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