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

• DelArco senior tag

  #1100 2009-02-24 18:35: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

  

  DelArco

  senior tag

  Hali!

  Egy olyan krédésem lenne hogy hogyan lehet legegyszerübben megodlást találni a következő problémára:
  Adott egy daragridview egy textbox és egy button control.
  A datagridview feltöltve adatokkal.
  Nos egy keresést szeretnék megvalósítani a lehető legegyszerűbben vagyis inkább az kérdezni hogy létezik e a cellák közti keresésre valami alap beépített függvény.
  A probléma annyi hogy beírsz valamit a textboxba és a button click eseményében kéne végrehajtani a keresést. Ha talál egyező cellát akkor azt a cellát kijelöli és ennyi.
  Van erre beépített függvény mint pl a Listviewnél a FindItemWithText vagy vmi ilyesmi.
  Vagy ezt csak úgy lehet megcsinálni ha végigmegyek minden soron és oszlopon és ellenörizgetem az értékeket?

• ArchElf addikt

  #1099

  #1096 zabomate

  2009-02-23 15:52:31

  Ú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

  

  ArchElf

  addikt

  #1096 zabomate

  És ha shell() nem jó: Win32 API megvalósítás

  AE

• zabomate csendes tag

  #1098

  #1097 [HUN]Zolee

  2009-02-22 20:44:16

  Ú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

  

  zabomate

  csendes tag

  #1097 [HUN]Zolee

  Köszi!

• [HUN]Zolee őstag

  #1097

  #1096 zabomate

  2009-02-21 21:33:54

  Ú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

  

  [HUN]Zolee

  őstag

  #1096 zabomate

  ha jól emlékszem akkor shell() vagy valami ilyesmi a parancs és strningként meg megy az elérési útvonal

• zabomate csendes tag

  #1096

  #1095 ArchElf

  2009-02-21 21:25:03

  Ú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

  

  zabomate

  csendes tag

  #1095 ArchElf

  Kösz a választ!
  Lenne még 1 kérdésem. Ha én megszeretnék hívni egy másik programot. Például timerrel megcsinálom azt hogy 4 óra múlva indítsa el az adott elérési útvonalon a programot melyik parancsot használjam ehhez?
  parancs D:\eztakaromelindítani.exe
  Előre is köszi.

• ArchElf addikt

  #1095

  #1094 zabomate

  2009-02-01 09:16: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

  

  ArchElf

  addikt

  #1094 zabomate

  InStr-el és egy pofás ciklussal tudsz ilyet csinálni.

  AE

• zabomate csendes tag

  #1094

  #1093 ArchElf

  2009-01-31 20:24:43

  Ú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

  

  zabomate

  csendes tag

  #1093 ArchElf

  Az előző ötletemet abbahagytam most az érdekelne hogy esetleg van-e olyan parancs Basicban ami egy dokumentumban megkeresi az adott szavakat és összegyűjti vagy beolvassa vagy éppen összeszámolja hogy hány darab van a szövegben.

• ArchElf addikt

  #1093

  #1092 zabomate

  2009-01-27 09:37:18

  Ú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

  

  ArchElf

  addikt

  #1092 zabomate

  Nem igazán értem problémád. Hogy olvasod be sort? Ha bemásolsz kódot, talán megmondjuk mit keféltél el.

  Amúgy felhasználónév jelszó txt fájlban... A hátamon is feláll a szőr.

  AE

• zabomate csendes tag

  #1092 2009-01-24 20:31:02

  Ú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

  

  zabomate

  csendes tag

  Helló!
  Remélem tud valaki segíteni.
  Szeretnék egy txt fájlból adatot beolvasni úgy hogy mindet külön vegye mert egy bejelentkezést csinálnék a regisztrációs része kész a proginak és ez elmenti egy txt fájlba de így nem birok bejelentkezni csak ha egy felhasználó van regisztrálva mert mindíg csak az első sorba írt információt észleli.
  Várom a választ.

• Jester01 veterán

  #1091

  #1083 sbalint

  2009-01-21 14:47:09

  Ú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

  

  Jester01

  veterán

  #1083 sbalint

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(path)
  d = f.DateCreated

• KrAt veterán

  #1090

  #1088 ArchElf

  2009-01-21 14: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

  

  KrAt

  veterán

  #1088 ArchElf

  Nofene, soha nem jöttem volna rá, hogy nem csinálja automatikusan

  Köszi, próbálkozunk

• ArchElf addikt

  #1089

  #1087 KrAt

  2009-01-21 13:50: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

  

  ArchElf

  addikt

  #1087 KrAt

  Remélem segít:
  http://social.msdn.microsoft.com/Forums/en-US/windowscompatibility/thread/162aad68-2723-4a41-8b7b-7ee1a54cd774/

  AE

• ArchElf addikt

  #1088

  #1087 KrAt

  2009-01-21 13:42: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

  

  ArchElf

  addikt

  #1087 KrAt

  Nem is ott kellene lennie annak, hanem a windows/system32 könyvtárban.
  Ha nem megy a program, elötte telepíteni kell az adott dll-t vagy a vb6 redist csomagot (ha még egyáltalán van ilyen...)

  AE

• KrAt veterán

  #1087

  #1086 ArchElf

  2009-01-21 13:07:24

  Ú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

  

  KrAt

  veterán

  #1086 ArchElf

  Megy

  Idáig mi is eljutopttunk, de vmiért a könyvtár bin mappájában nem találja az opendialog izét

• ArchElf addikt

  #1086

  #1085 KrAt

  2009-01-21 11:17:28

  Ú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

  

  ArchElf

  addikt

  #1085 KrAt

  Angol remélem megy:
  link

  AE

• KrAt veterán

  #1085

  #1082 KrAt

  2009-01-21 10:57: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

  

  KrAt

  veterán

  #1082 KrAt

  UP lécci

• sbalint csendes tag

  #1084

  #1083 sbalint

  2009-01-21 01:16:20

  Ú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

  

  sbalint

  csendes tag

  #1083 sbalint

  Megoldottam. Shell-ből fájlba kiirattam a könyvtár tartalmát, és abból kiolvastam a könyvtár készítési idejét.

• sbalint csendes tag

  #1083 2009-01-20 19:24:18

  Ú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

  

  sbalint

  csendes tag

  Könyvtár készítésének idejét szeretném lekérdezni VB6.0-ban. Tud valaki megoldást?

• KrAt veterán

  #1082 2009-01-20 01:32:39

  Ú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

  

  KrAt

  veterán

  Ha valaki tudna segíteni, légszí adjon pár tippet ezzel kapcsolatban:

  "volt 2 gomb
  és egy richtextbox
  a feladat az volt hogy az opendialog segítségével nyissak meg egy txt fájlt a richtextboxba és miután megynyitom legyen piros és 15-ös betűméretű
  majd ha megnyitottam a másik gombbal tudjam menti és felülírni
  rtf-ben"

  Ez volt a feladat, haverom megrántották, mindent tudtunk, csak ezt nem Valaki adna instrukciót, hogyan csináljuk? Leginkább az opendialog érdekelne, azt nem tudtuk.

• [HUN]Zolee őstag

  #1081

  #1080 [HUN]Zolee

  2009-01-13 10:33:31

  Ú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

  

  [HUN]Zolee

  őstag

  #1080 [HUN]Zolee

  Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.

• [HUN]Zolee őstag

  #1080 2009-01-13 10:18:39

  Ú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

  

  [HUN]Zolee

  őstag

  Meg tudja valaki mondani, miért nem viszi át a textbox tartalmát, csak amit alapértelmezetten írok be? [link]

• [HUN]Zolee őstag

  #1079 2009-01-09 14:12:45

  Ú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

  

  [HUN]Zolee

  őstag

  Üdv.

  hogy lehet egy új objektumnak aminek a nevét egy tömbbe tároljuk eseménykezelést csinálni?

• ollie MODERÁTOR

  #1078

  #1075 DerStauner

  2009-01-08 10:29: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

  

  ollie

  MODERÁTOR

  #1075 DerStauner

  3d-s fullscreen alkalmazásoknál is működik (tehát játékoknál)? Egyébként már sajnos nem lehet letölteni.

• MC Pite veterán

  #1077 2009-01-08 10:24:42

  Ú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

  

  MC Pite

  veterán

  Üdv!

  Elné hogy ilyn eaprósággal zavarlak titeket; de egy hosszas folyamatotra készítettem vb-be makrót, működuik rendesen, de mivel rengeteg karaktercseréből áll elsősorban a makró, rákérdez mindig hogy az elejétől újrakeresse? És msot úgy kell futtatnom a makrót hogy rátapadok az i-re míg lefut gyakorlatilag.

  Erre nem találtam megoldást hogy bill beirányítás vagy tartomány pontosabb definiálása (pontosabban hogy kérdezzen rá) a jó megoldás, ebben kérném segítségeteket!

• DerStauner senior tag

  #1076

  #1075 DerStauner

  2008-12-05 12:57:27

  Ú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

  

  DerStauner

  senior tag

  #1075 DerStauner

  ja, az kimaradt, hogy az egésznek természetesen az a lényege, hogy elindítod a progit, leteszed tray-be, és akármikor F10-et nyomsz, csinál egy print screen-t, és elmenti oda, amilyen útvonalat megadtál neki. és lehet időzíteni is az egészet (pl minden 10 percben csináljon egy képet, vagy csak 10 perc múlva).

• DerStauner senior tag

  #1075 2008-12-05 12:45:35

  Ú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

  

  DerStauner

  senior tag

  sziasztok!

  egyik ismerősömnek egyéni igényeket kielégítő programra volt szüksége, amellyel könnyen és gyorsan lehet a képernyőt lementeni. így alkottam meg a PrintScreen v1.1a nevű kis programot.

  itt letölthető (állítólag csak 10-szer)

  tesztelve xp32-n. vista 32-n nem volt alkalmam, bár nagy valószínűséggel működik, vista x64-en tuti nem működik.

  működési problémák csak azért lépnek fel, mert egyszerűen nem tudom, hogy hogyan kell a dll-eket és az ocx-eket 64 bites op-ken regisztrálni. 32 biteseken a regsvr32 erre tökéletes. és habár ezt a setup elvégzi, de 64 biten akkor is kiírja, hogy unregistered component, stb.

  és még egy dolog: számomra ismeretlen okokból ha a programot a setup-ban az összes felhasználónak telepítitek fel, akkor ha éltek az autostart lehetőségével a programban (ez direkt nem a setup-ban van szabályozva), akkor nem írja be a program a szükséges registry bejegyzést a regisztrációs adatbázisba. de ha csak saját magatoknak telepítitek, akkor működik.

• Polyák tag

  #1074

  #1073 Boolash

  2008-11-27 13:37:15

  Ú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

  

  Polyák

  tag

  #1073 Boolash

  bocsi de sajnos ebben nem tudok segíteni.
  és igen, ez a topik mostanában nem igazán szaporítja a hozzászólásokat.

• Boolash aktív tag

  #1073

  #1072 Boolash

  2008-11-27 10:49:21

  Ú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

  

  Boolash

  aktív tag

  #1072 Boolash

  Nemnagyon pörög a topik
  Sikerült előrejutnom. Márcsak 1 probléma van, hátha valaki tudja.
  a Selection.Find -nál szeretnék wildchardokat használni kereséshez. Engedélyeztem is a használatukat. Amit szeretnék keresni: [space]bármi[kukac]bármi[.]bármi[space]
  ezt kellene lefordítani. De ez így nem jó: <[ ]*[@]*[.]*[ ]> egyrészt mert a @ is jelent valamit, meg a space-t sem kezeli így....
  Hogy kellene?
  Köszi

• Boolash aktív tag

  #1072

  #1071 Boolash

  2008-11-26 23:25:58

  Ú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

  

  Boolash

  aktív tag

  #1071 Boolash

  Oks.. benéztem a Loop-ot, már kijavítottam. viszont a keresésre ha van vkinek ötlete, az jöhet!

• Boolash aktív tag

  #1071

  #1070 Polyák

  2008-11-26 22:03:36

  Ú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

  

  Boolash

  aktív tag

  #1070 Polyák

  word-ben írom, de hivatkozok excel-re is. Tehát itt jelen esetben a wordben megtalált @ -t egy excel munkafüzetbe dobálja.
  Amúgy itt tartok:

  Sub akarmi()
  
  Dim Obj1 As Object
  Set Obj1 = CreateObject("excel.application")
  Obj1.Visible = True
  Obj1.Workbooks.Add
  
  Do Until ActiveDocument.Bookmarks("\Sel") = _
  ActiveDocument.Bookmarks("\EndOfDoc")
  
  With Selection.Find
  .Forward = True
  .Wrap = wdFindStop
  .Text = "@"
  .Execute
  End With
  Dim i As Integer
  i = 1 + i
  Dim valtozoword As String
  valtozoword = Selection.Text
  'MsgBox valtozoword
  'Dim i As Integer
  'If i < 25 Then i = 1 + i 'itt i-nek annyinak kéne lenni, mint ahány @ van
  Dim excelmezo As String
  'MsgBox excelmezo
  Obj1.Worksheets("Munka1").Cells(i, 1).Value = valtozoword
  Loop
  ActiveDocument.Save
  End Sub

  Ez így végigkeresi az összeset a wordben, és bedobja az excelbe, a cellákba szépen egymás alá.
  Az az egyik baj, hogy ez így végtelen... Miért nem száll ki a Loop-ból?? Többször végigmegy a kereséssel az egész word dokumentumon, és így végtelen számút talál és rak be az excelbe....
  Köszi

• Polyák tag

  #1070

  #1069 Boolash

  2008-11-26 20:49:26

  Ú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

  

  Polyák

  tag

  #1069 Boolash

  Szia!
  Ez most akkor wordben vagy excelben van?

• Boolash aktív tag

  #1069

  #1068 Boolash

  2008-11-26 19:03:40

  Ú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

  

  Boolash

  aktív tag

  #1068 Boolash

  Oké.
  az If-et így kellene írnom:

  If i < 100 Then i = 1 + i

  ezzt dobja hibának:

  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection

  object doesn't support this property or method.....

• Boolash aktív tag

  #1068 2008-11-26 18:47: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

  

  Boolash

  aktív tag

  Ebben mi lehet a hiba?
  Elméletileg azt csinálná, hogy körbeszalad a word dokumentumon, kikeresi a @-ot, majd ha talál azt egy új excelbe belepakolja (max100-at). Majd menti.

  Sub akarmi()
  
  Dim Obj1 As Object
  Set Obj1 = CreateObject("excel.application")
  Obj1.Visible = True
  Obj1.Workbooks.Add
  
  Do Until ActiveDocument.Bookmarks("\Sel") = _
  ActiveDocument.Bookmarks("\EndOfDoc")
  
  With Selection.Find
  .Forward = True
  .Wrap = wdFindStop
  .Text = "@"
  .Execute
  End With
  
  Dim i As Integer
  If i < 100 Then
  i = 1 + i
  
  Selection.Copy
  
  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  
  Loop
  
  ActiveDocument.Save
  
  End Sub

  Így azt dobja, hogy Loop, without Do. Szerintem több hina is lesz. pl.: Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  Hogy lehetne ezeket?
  Köszi

• Boolash aktív tag

  #1067

  #1066 VIC20

  2008-11-26 14:57:28

  Ú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

  

  Boolash

  aktív tag

  #1066 VIC20

  Igen megcsináltam, majd meg is néztem a kódot. Az okés, a find megvan.
  Csak nekem az kellene, hogyha talál egy @-ot, akkor ne csak az legyen kijelölve, hanem az egész szó. Valahogy a Range-t kellene kiterjeszteni.

• VIC20 őstag

  #1066

  #1065 Boolash

  2008-11-26 08:30:14

  Ú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

  

  VIC20

  őstag

  #1065 Boolash

  Huh, most mindenféle utánanézés előtt megkérdem: szoktad használni a Word makrórögzítőjét? Nagyon hasznos tud lenni: megcsinálja ezeknek a szövegszerkesztős műveleteknek a kódját.

• Boolash aktív tag

  #1065 2008-11-25 17:53:27

  Ú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

  

  Boolash

  aktív tag

  Sziasztok!
  Egy gyors segítség jól jönne! Word-ben programozok, és elakadtam (elég hamar...) Azt szeretném kérdezni, hogy hogyan kell egy teljes szót kijelölni? Konrétan arról lenne szó, hogy rákeresek egy betüre a teljes word dokumentumban, majd az kellene nekem, hogy ne csak az a betü legyen kijelölve, hanem az egész szó!

  Set myrange = ActiveDocument.Content
  myrange.Find.ClearFormatting
  With Selection.Find
  .Text = "@"
  .Forward = True
  End With
  Selection.Find.Execute
  End Sub

  Illetve ez így ugyebár, ha megtalálta az első egyezőt, akkor leáll. Gondolom egy if -el nézem azt, hogy a myrange végére ért e. Hogy mondom neki, hogy végére ért e?
  Köszi!

• VIC20 őstag

  #1064

  #1063 ArchElf

  2008-11-21 19:27:18

  Ú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

  

  VIC20

  őstag

  #1063 ArchElf

  Köszönöm szépen a segítséget!

  Kommentár a "Comment1"-hez: De mégis, milyen jó, hogy meg lehet kérdezni ilyesmit a hozzáértőktől egy ilyen fórumon, mint ez is, amely tulajdonképpen ezért van.

• ArchElf addikt

  #1063

  #1062 VIC20

  2008-11-20 13:24:18

  Ú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

  

  ArchElf

  addikt

  #1062 VIC20

  Kis angoltudás kék hozzá: link

  AE
  
  Comment 1: 5 perc google volt
  Comment 2: VB.NET-ben kb ugyanennyi idő megcsinálni is (lásd IComparer intefész)

• VIC20 őstag

  #1062

  #1058 Jester01

  2008-11-18 20:06:37

  Ú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

  

  VIC20

  őstag

  #1058 Jester01

  Elmondom, hogy is van ez nálam.

  Van ugye a formon egy ListView vezérlő, ami eléggé el nem ítélhető módon a ListView1 nevet viseli.

  Az inicializáló részben a következők történnek:

  ListView1.ColumnHeaders.Add 1, , "Címke", 900
  ListView1.ColumnHeaders.Add 2, , "Leírás", 8000
  ListView1.ColumnHeaders.Add 3, , "Típus", 5000
  ListView1.ColumnHeaders.Add 4, , "Dátum", 1500

  Vagyis kap négy oszlopot. (Az első név félrevezető: a címke valójában a sorszámot jelenti.)

  Ezeket a következőképpen töltöm fel.

  'A listview vezérlő feltöltése
  If Tombmeret > 0 Then
  For i = 1 To Tombmeret
  If AdatBazis(i).hasznalt = True Then
  a$ = "A" & Str(i) 'Sajnos számot még füzér alakban sem fogad el a hülye listview vezérlő, ezért egy betű kell elé. De ez komoly, még str(i)-t sem enged magába tölteni.
  FoAblak.ListView1.ListItems.Add , a$, Str(i)
  FoAblak.ListView1.ListItems(a$).SubItems(1) = Trim(AdatBazis(i).leiras)
  FoAblak.ListView1.ListItems(a$).SubItems(2) = Tipus_szoveggel(AdatBazis(i).tipus)
  FoAblak.ListView1.ListItems(a$).SubItems(3) = AdatBazis(i).datum
  End If
  Next i
  End If

  A rendező rész a következő:

  Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)

  Dim a As Integer

  a = ColumnHeader.Index - 1

  ListView1.SortKey = ColumnHeader.Index - 1

  If ListView1.SortKey = a Then
  If ListView1.SortOrder = lvwAscending Then
  ListView1.SortOrder = lvwDescending
  ElseIf ListView1.SortOrder = lvwDescending Then
  ListView1.SortOrder = lvwAscending
  End If
  End If

  ListView1.Sorted = True
  End Sub

  Ezzel vidáman rendez pl. dátum szerint is oda-vissza, de az első oszlop (ami a sorszám lenne) a szokásos hibát produkálja: a 10 nem a 9 után jön, hanem az 1 után (ABC szerinti rendezés).

  Mit lehet tenni?

• sonar addikt

  #1061

  #1060 Jester01

  2008-11-18 18:35:07

  Ú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

  

  sonar

  addikt

  #1060 Jester01

  Kösz, átrágom magam rajta

• Jester01 veterán

  #1060

  #1059 sonar

  2008-11-18 14:38:00

  Ú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

  

  Jester01

  veterán

  #1059 sonar

  Using the WinHttpRequest COM Object

• sonar addikt

  #1059

  #1055 Jester01

  2008-11-18 14:27:10

  Ú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

  

  sonar

  addikt

  #1055 Jester01

  Nem muszáj, de melyik vezérlővel gondoltad?

• Jester01 veterán

  #1058

  #1057 VIC20

  2008-11-18 14:12:43

  Ú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

  

  Jester01

  veterán

  #1057 VIC20

  Nem lehet, hogy 1-el kezdődik az indexelés? Vagyis a SortKey=1 beállítást próbáltad?

• VIC20 őstag

  #1057

  #1056 Jester01

  2008-11-18 11:03:35

  Ú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

  

  VIC20

  őstag

  #1056 Jester01

  Köszi a választ!
  Hogyan gondoltad az oszlop típusát számmá alakítani?

  A súgó azt mondja, a SortKey tulajdonságra, hogy:

  Setting:
  0 Sort using the ListItem object's Text property.
  > 1 Sort using the subitem whose collection Index is specified here.

  Nálam a rekordszámnál 0-ra jön ki a setting, mivel az van az első oszlopban, tehát szöveg alapján fog rendezni. A többi esetre nem mondja ki, de nem lehet, hogy ott is a text tulajdonság alapján rendez?

  Akkor mit tehetek? Nekem kell megírni a rendező algoritmust, az majd törli a vezérlő teljes tartalmát, majd feltölti "kézzel" az elemeket?

• Jester01 veterán

  #1056

  #1054 VIC20

  2008-11-18 02:14:06

  Ú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

  

  Jester01

  veterán

  #1054 VIC20

  Már régen basiceztem, de nézd meg nem lehet-e az oszlop típusát számmá alakítani. Vagy ha nem nagyon ronda, akkor balról pótold ki nullákkal a számokat.

• Jester01 veterán

  #1055

  #1053 sonar

  2008-11-18 02:11:17

  Ú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

  

  Jester01

  veterán

  #1053 sonar

  Ha nem muszáj böngészőben meg is mutatni az oldalt, akkor én eleve a visszaküldött választ generálnám kódból.

• VIC20 őstag

  #1054 2008-11-18 00:23:48

  Ú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

  

  VIC20

  őstag

  Egy rövid kérdés: ha a ListView vezérlőben az első oszlop egy adatbázis rekordjainak a sorszámát tartalmazza, és én e szerint szeretném rendeztetni az elemeket, hogyan tudom elérni, hogy az 1 után a 2 következzen, ne a 11, 12... stb. ?

• sonar addikt

  #1053 2008-11-14 14:08:07

  Ú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

  

  sonar

  addikt

  Sziasztok,

  Webes honlapon szeretnék automatizálni pár dolgot. A lényeg,hogy behozza az oldalt bizonyos mezőket kitölt és elküldöm vissza a szervernek.
  Csak nem igazán tudom,hogy mivel oldjam meg. Webbrowserrel próbálom, de nem igazán tudom kezelni a dolgot. Be még csak behozza honlapot, de hogyan oldom meg az autómata kitöltést? Illetve visszaküldést.

  üdv
  s

• VIC20 őstag

  #1052 2008-11-12 14:16:07

  Ú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

  

  VIC20

  őstag

  Tényleg, röviden össze tudja valaki foglalni, miért érdemes VB.NET-re váltani?

• NoLF veterán

  #1051

  #1050 NoLF

  2008-11-11 23:12:47

  Ú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

  

  NoLF

  veterán

  #1050 NoLF

  természetesen google segített, csak normálisan kellett keresnem.

• NoLF veterán

  #1050 2008-11-11 22:34:22

  Ú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

  

  NoLF

  veterán

  hi

  az lenne a kérdésem, hogy konkrétan mi az a rutin?

  meg tudná valaki fogalmazni?

• puncspuding csendes tag

  #1049

  #1047 DerStauner

  2008-11-10 17:27:38

  Ú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

  

  puncspuding

  csendes tag

  #1047 DerStauner

  Köszi szépen a segítséget, megnézem, csak utána kell olvasnom a visual basicnek is .
  Gondolom, hogy a sendkeys parancsba beépíthetek változó elemeket is, tehát olyat, amiknek az értékét én adom meg a program használata során.
  Pl. beírok egy szót egy beviteli mezőbe, a program pedig beírja ezt a szót egy másik programba. Ha ez sikerülne, utána még tovább kéne bonyolítani a dolgot, de egyelőre eddig szeretnék eljutni.

• VIC20 őstag

  #1048

  #1044 Goose-T

  2008-11-10 13:22: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

  

  VIC20

  őstag

  #1044 Goose-T

  Hát, nem tudom, van-e olyasmi, ami miatt feltétlenül szükséges .NET-re váltanom. Arról annyit hallottam, hogy bonyolultabb és lassabb, több erőforrást zabál.

• DerStauner senior tag

  #1047

  #1046 puncspuding

  2008-11-09 20:28:03

  Ú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

  

  DerStauner

  senior tag

  #1046 puncspuding

  használd a SendKey-t

  többek között itt is körülnézhetsz.

  ennek persze előfeltétele, hogy az adatbázist kezelő alkalmazás legyen az aktív

• puncspuding csendes tag

  #1046 2008-11-08 11:27:00

  Ú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

  

  puncspuding

  csendes tag

  Nem hozzáértőként szeretném megkérdezni, hogy lehet-e VB-ben olyan programot írni, ami egy beírt szöveg alapján emulál billentyűzet leütéseket bármilyen programban?

  Gondolok arra, hogy egy rendkívül nehézkesen kezelhető adatbáziskezelő programba automatikusan beírná azokat az adatokat (ehhez szükség van TAB és ENTER leütésekre is), amiket én megadok a programnak. A billentyűzet leütések szekvenciáját meghatároznám VB-ben. Lehet, hogy hülye kérdés, programozni nem tudok, de gyorsan tanulok, köszi.

• ArchElf addikt

  #1045

  #1043 VIC20

  2008-11-05 13:18:15

  Ú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

  

  ArchElf

  addikt

  #1043 VIC20

  Az utasítások eléggé különböznek, de azt szoktam mondani, hogy ha az ember nem "szemellenzősen" tanul programozni, az egyik nyelvről egy másikra való váltás csak napok/hetek kérdése. A váltásnál a legnagyobb nehézség a megszokások lerázása (alap változótípusok megtanulása, alap műveleti típusok formázása, programfelépítés), a többi csak arról szól, hogy nem a-nak hívják a függvényt, hanem b-nek, és nem három argumentuma van, hanem négy
  Amúgy ezekben aktívan programozok, azt azért nem merem mondani, hogy fejlesztek
  C#
  PHP
  VBS
  Ezekben meg nem aktívan, csak ha úgy hozza az igény:
  VB.NET
  ASP.NET
  Java
  VB6
  C/C++

  AE

• Goose-T veterán

  #1044

  #1043 VIC20

  2008-11-05 11:47:01

  Ú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

  

  Goose-T

  veterán

  #1043 VIC20

  A VB6 után már a VB.NET jött, és nagyon eltér a régi verzióktól, tényleg újra kell tanulni. Mondjuk szerintem megéri, mert sokkal többet tud. Érdekes, hogy még VB6-ot használsz, az már egy tíz éves őskövület.

• VIC20 őstag

  #1043

  #1042 ArchElf

  2008-11-05 11:14: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

  

  VIC20

  őstag

  #1042 ArchElf

  Köszi a tippeket!

  Egyébként most miben programozol? Fejlettebb VB-ben, vagy úgy általában abbahagytad a VB-t? Csak azért kérdeztem, mert én most ezen gondolkodom. Megpróbáltam egy projektet átvinni VB2005 alá, de nem sikerült. Annyival eltérnek az újabb verziók? Annyira, hogy gyakorlatilag újra kell tanulni a programozásukat? Megéri?

• ArchElf addikt

  #1042

  #1041 VIC20

  2008-11-05 10:44:36

  Ú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

  

  ArchElf

  addikt

  #1041 VIC20

  De (vagy CurDir???)
  Amúgy ha jól rémlik ezt azt adja meg, ami:
  1)
  Ha magát az exe-t indítottad el, az a könyvtár, ahol az exe van
  2)
  Ha shortcut-ot indítottál, az a könyvtár, ami a shortcut "start in" mezőjében szerepel. Ha a start in könyvtár nem érvényes, akkor asszem a %windir% környezeti változó lesz az értéke (ami leggyakrabban c:\windows, de ez is telepítésfüggő)

  Úgy rémlik, hogy a VisualBasic IDE-t úgy lehet "átvágni", hogy ne a c:\program files\... legyen a start in könyvtár a projektnél, hanem a projektkönyvtár, hogy nem az IDE-ből indítod el a projektedet, hanem közvetlenül a projekt fájl megnyitásával. Elég régen használtam már VB6-ot nem vagyok benne biztos.

  AE

• VIC20 őstag

  #1041 2008-11-05 08:48:42

  Ú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

  

  VIC20

  őstag

  Nem valami App.Path ?

• VIC20 őstag

  #1040

  #1039 ArchElf

  2008-11-05 08:44:00

  Ú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

  

  VIC20

  őstag

  #1039 ArchElf

  Igen, ebbe a statikus-dinamikus dologba én is beleszaladtam, még az elején, így egyelőre statikus maradt. Az vigasztal, hogy a végén elég egyszerűnek ígérkezik lecserélni relatívra.

  Lehet, hogy lamerség, de azért megkérdem, hol találom konkrétan a futó folyamat indítási könyvtárát? Köszi!

• ArchElf addikt

  #1039

  #1038 VIC20

  2008-11-04 14:03:10

  Ú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

  

  ArchElf

  addikt

  #1038 VIC20

  Épp azt írtam, hogy ez program és installer függő. Vagy célszerű tudnia programodnak, hogyan működik az installer (hova milyen adatokat ír), vagy pedig csak egyszerűen le kell kérdeznie a futó folyamat indítási könyvtárát.
  Amúgy az alkalmazásodba ne statikus, hanem relatív útvonalat használj. Tudom, hogy ez problémás a fejlesztéskor, mert alapból VB könyvtárában keresi a fájlokat, ha egy projektet indítasz, nem a projekt könyvtárában, de ezt is meg lehet kerülni.

  AE

• VIC20 őstag

  #1038

  #1037 ArchElf

  2008-11-04 12:09:31

  Ú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

  

  VIC20

  őstag

  #1037 ArchElf

  Az érdekelne, hogy hol van a kapcsolódási pont az installer és az installált program között.Vagyis honnan veszi át a program azokat az adatokat, hogy hova is telepítették, milyen beállításokkal?

• ArchElf addikt

  #1037

  #1036 VIC20

  2008-11-03 15:02:14

  Ú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

  

  ArchElf

  addikt

  #1036 VIC20

  A Visual Studionak van saját installere (persze nem az Express változatnak), de lehet válogatni a piacon is bőséggel (de ha van egy 1 órád, vagy fél napod, te is összedobhatsz egy alap telepítőt a programodhoz)... Anno használtam VB6-hoz is a beépített installer plugint (bár azért az kicsit már a szenvedés határát súrolta).

  AE

• VIC20 őstag

  #1036

  #1035 ArchElf

  2008-11-03 13:56: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

  

  VIC20

  őstag

  #1035 ArchElf

  Hát, igen, az első megoldás az lenne, hogy összecsomagolom, és használati utasításként mellé írom, hogy a c:\xyz könyvtárba KELL kitömöríteni, és csak oda, mert máshol nem működik. (Bár ez nem igazi megoldás.)

  Valami szabvány telepítőre gondoltam; gondoltam, azzal nem lesz sok gond. Tartalmaznak az ilyenek valami módszert a registry írásra vagy más effélére?

• ArchElf addikt

  #1035

  #1034 VIC20

  2008-11-03 12:17:17

  Ú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

  

  ArchElf

  addikt

  #1034 VIC20

  Kérdés, hogy hogyan telepítették föl... Mondjuk a legegyszerűbb megoldás a registry (telepítéskor beíródik oda minden adat, ami neked kell), de lehet egy text file is a programod mellett. Mindenesetre ez nagyban függ attól, hogy te írod a telepítőt is, vagy valami szabvány telepítőbe teszed bele a programod.
  Amúgy az alkalmazás le tudja kérdezni a környezeti változóit. Pl mi a futtatott fájl elérési útvonala, mi van megadva "start in" könyvtárnak a linkjében, ha azzal indították, ésatöbbi...

  AE

• VIC20 őstag

  #1034 2008-11-03 11:08:26

  Ú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

  

  VIC20

  őstag

  Tapasztal VB programozók, tudtok segíteni?

  Ha készítek egy programot, amit aztán föltelepít valaki, honnan fogja tudni az a program, hogy hova telepítették, milyen elérési úton keresse a konfigurációs fájlt, meg az adatfájlokat, amikkel majd dolgozni fog? Hogyan kell ezt beírni a kódba?

• Glean csendes tag

  #1033 2008-10-28 11:15:42

  Ú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

  

  Glean

  csendes tag

  Sziasztok!

  A minap nagy problémával találtam szembe magam, amiben a segítségeteket szeretném kérni:
  Visual Basic 2005-ben fejlesztek egy robotvezérlő/képelemző szoftvert, és egy Directx-es Joystick vezérlés is van benne.
  Ehhez referenciának be kellett adnom 2 file-t:
  Microsoft.DirectX.dll
  Microsoft.DirectX.DirectInput.dll

  A program működik lefordítva, de debug módba folyton warningokat dob, és nagyrészben ki is fagy.
  A következő hibaüzenetet kapom:

  DLL 'C:\WINDOWS\assembly\GAC\Microsoft.DirectX.DirectInput\1.0.2902.0__31bf3856ad364e35\Microsoft.DirectX.DirectInput.dll' is attempting managed execution inside OS Loader lock. Do not attempt to run managed code inside a DllMain or image initialization function since doing so can cause the application to hang.

  Ha valaki tudja mi a probléma, nagyon megköszönném a segítséget!

  Üdv: Glean

• VIC20 őstag

  #1032 2008-10-22 10:20:25

  Ú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

  

  VIC20

  őstag

  Sziasztok! Van valakinek ötlete az alábbi problémához?

  Szeretnék külső programot meghívni egy VB programban, konkrétan egy RAR-os tömörítést szeretnék csinálni (biztonsági mentés). Van ugye ez a Shell() függvény, de az, ha jól tudom, nem várja meg, amíg a külső program lefut, és a visszatérési értéket sem adja vissza (errorlevel vagy ilyesmi).

  Van valakinek megoldása? Köszi előre is!

• lúzer veterán

  #1031

  #1030 Polyák

  2008-10-16 17:54:21

  Ú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

  

  lúzer

  veterán

  #1030 Polyák

  köszi!

• Polyák tag

  #1030

  #1029 lúzer

  2008-10-12 20:22:43

  Ú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

  

  Polyák

  tag

  #1029 lúzer

  én Visual Basic 6 alatt használtam régen. utánanézek havernál hogy miért van ez amit irtál. ő rendszerinfóra jár, lehet tudja.

• lúzer veterán

  #1029 2008-10-11 17:01:25

  Ú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

  

  lúzer

  veterán

  valaki kipróbálná hogy nála megy?

• lúzer veterán

  #1028

  #1026 Polyák

  2008-10-11 16:12:00

  Ú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

  

  lúzer

  veterán

  #1026 Polyák

  excel alatt is ezt dobja

• lúzer veterán

  #1027

  #1026 Polyák

  2008-10-11 16:03:17

  Ú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

  

  lúzer

  veterán

  #1026 Polyák

  Kiderül...
  autocad alá kéne, nézem...

  bakker, valami licencproblémát jelez beillesztéskor
  ... because, it is not properly licensed

• Polyák tag

  #1026

  #1025 lúzer

  2008-10-11 15:58:08

  Ú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

  

  Polyák

  tag

  #1025 lúzer

  CommonDialog. az összetevők közt Microsoft Common Dialog Control néven van. (COMDLG32.OCX)
  .showcolor = szinek ablak
  .showopen = megnyitás ablak
  .showsave = mentés ablak
  stb...

  (remélem erre gondoltál )

• lúzer veterán

  #1025 2008-10-11 14:27:28

  Ú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

  

  lúzer

  veterán

  üdv!
  mi az opendialog, savedialog -szerű fájlkezelő abak vb-ben?

• NoLF veterán

  #1024

  #1023 sonar

  2008-10-08 20:07:39

  Ú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

  

  NoLF

  veterán

  #1023 sonar

  privát ment

• sonar addikt

  #1023

  #1022 NoLF

  2008-10-08 19:37:48

  Ú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

  

  sonar

  addikt

  #1022 NoLF

  Lehet, hogy tudok segíteni

• NoLF veterán

  #1022 2008-10-08 18:27:12

  Ú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

  

  NoLF

  veterán

  üdv, pénzügyi suliba járó barátnőm kapott egy kis házit, visual basicben kell megoldani néhány részletet belőle, de nem igazán ért(ünk) hozzá. tudna segíteni valaki?

• Noobi tag

  #1021

  #1020 Polyák

  2008-10-05 00:42:40

  Ú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

  

  Noobi

  tag

  #1020 Polyák

  Úgy, hogy találtam egy java-ban megírtat, és csak át kellett írnom VB-be a problémás részt

• Polyák tag

  #1020

  #1019 Noobi

  2008-10-04 20:31:37

  Ú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

  

  Polyák

  tag

  #1019 Noobi

  és hogy sikerült?

• Noobi tag

  #1019

  #1018 Noobi

  2008-10-04 16:59:49

  Ú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

  

  Noobi

  tag

  #1018 Noobi

  Tárgytalan, már rájöttem

• Noobi tag

  #1018 2008-10-03 11:09:31

  Ú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

  

  Noobi

  tag

  Sziasztok!
  Egy kis segítségre lenne szükségem VB-ben...
  Az office word-jébe beépített Visual Basic-et használom, és nem tudom, hogy lehetne n-ig kiíratni az ikerprímeket... (az n-ig prím megy)
  Előre is köszönöm a választ!

• Boolash aktív tag

  #1017

  #1016 [HUN]Zolee

  2008-09-25 19:15:36

  Ú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

  

  Boolash

  aktív tag

  #1016 [HUN]Zolee

  Okés, megvan minden! Köszi!
  Egyébként: ActiveCell.SpecialCells(xlLastCell).Select

• [HUN]Zolee őstag

  #1016

  #1015 Boolash

  2008-09-25 18:59:59

  Ú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

  

  [HUN]Zolee

  őstag

  #1015 Boolash

  Nemtudom. De én úgy szoktam megtudnia a parancsokat, hogy elindítok egy makró rögzítést és megadom a függvényt ami kell nekem beépítetből, így szépen lementi a mscro verzióját.

• Boolash aktív tag

  #1015

  #1014 [HUN]Zolee

  2008-09-25 18:56:10

  Ú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

  

  Boolash

  aktív tag

  #1014 [HUN]Zolee

  Áhh.. Megvan..
  Kicsit túllőttem a célon... Sok volt az 1000 oszlop.
  Esetleg azt nem tudod, hogy hogy lehet megnézni, hogy az adott sorban/oszlopban hol van az utolsó elem? Ne kellejen feleslegesen hiába végignézni sok-sok cellát...
  Köszi!

• [HUN]Zolee őstag

  #1014

  #1013 Boolash

  2008-09-25 18:48:55

  Ú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

  

  [HUN]Zolee

  őstag

  #1013 Boolash

  Hát nem tudom hogy amiatt reklamál-e hogy az else és a then között nincs semmilyen utasítás.

• Boolash aktív tag

  #1013 2008-09-25 18:31:39

  Ú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

  

  Boolash

  aktív tag

  Sziasztok!
  Fontos lenne!
  Ezzel mi lehet a hiba?

  Sub elso()
  
  Dim i, j As Integer
  
  For i = 1 To 65536
  For j = 1 To 1000
  If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  
  Else
  Munka1.Cells(i, j).Interior.ColorIndex = 27
  
  End If
  Next j, i
  
  End Sub

  Ez a sor nem jó: If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  merthogy application/object defined error....
  De miért?
  Hogy kellene?

  Egyébként azt csinálja, hogy 2 munkalapot összehasonlít, és ahol különbözik a kettő, azt sárgával megjelöli.

  Köszi!

• shift+ő senior tag

  #1012 2008-09-24 11:56: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

  

  shift+ő

  senior tag

  Szaisztok

  ACCESS 2007 VBA a környezet.

  Szeretném elérni azt, hogy amíg végrehajtódik egy SELECT, addig program végrehajtás ne álljon le, és tudjam vizsgálni, hogy a select fut-e még.

• KrAt veterán

  #1011

  #1010 ArchElf

  2008-09-22 17:34:22

  Ú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

  

  KrAt

  veterán

  #1010 ArchElf

  Hibaüzi se jött, szóval nem értem, mi volt a baj, de megoldódott, mivel alapjaiban b@sztam el

• ArchElf addikt

  #1010

  #1006 KrAt

  2008-09-22 15:27: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

  

  ArchElf

  addikt

  #1006 KrAt

  Azt hittem az volt a gond, hogy a hibaüzeneteket sem dobta fel...

  AE

• KrAt veterán

  #1009

  #1008 KrAt

  2008-09-21 14:56:48

  Ú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

  

  KrAt

  veterán

  #1008 KrAt

  Na egymásba ágyaztam az if-eket és else-ket írtam be (ez hiányzott, javában pedig automatikusan kitöltötte...) így már rögtön működik

• KrAt veterán

  #1008

  #1007 [HUN]Zolee

  2008-09-21 14:38:09

  Ú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

  

  KrAt

  veterán

  #1007 [HUN]Zolee

  Áhá, értem mit basztam el.. Kezdek megvilágosodni..

• [HUN]Zolee őstag

  #1007

  #1006 KrAt

  2008-09-21 14:35:14

  Ú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

  

  [HUN]Zolee

  őstag

  #1006 KrAt

  De attól még hogy kiadja a hibaüzenetet, a többi feltételt is megvizsgálja, és kiértékeli, pedíg azokat már nem is kell megnéznie ilyenkor.

• KrAt veterán

  #1006

  #1004 [HUN]Zolee

  2008-09-21 14:31:36

  Ú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

  

  KrAt

  veterán

  #1004 [HUN]Zolee

  Azért gondoltam, hogy egymás után vizsgálja a feltételeket, és ha vmelyiken megbukik, akkor hibaüzit ad.. De vmiért továbblép

  ArchElf: így is továbblép Vhol máshol lesz a hiba..

• ArchElf addikt

  #1005

  #1003 KrAt

  2008-09-21 14:28:00

  Ú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

  

  ArchElf

  addikt

  #1003 KrAt

  Inkább próbáld ki így:

  If x2.Text = "" Then
  adathiany.Show()
  End If
  
  If x.Text = "" Then
  adathiany.Show()
  End If
  
  If cons.Text = "" Then
  adathiany.Show()
  End If

  AE

• [HUN]Zolee őstag

  #1004

  #1003 KrAt

  2008-09-21 14:26:40

  Ú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

  

  [HUN]Zolee

  őstag

  #1003 KrAt

  Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.

  If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
  adathiany.Show()
  else {
  If x2.Text = 0 Then
  x2biztos.Show()
  x2igen.Show()
  End If
  
  If x.Text = 0 Then
  xbiztos.Show()
  xigen.Show()
  End If
  
  If cons.Text = 0 Then
  consbiztos.Show()
  consigen.Show()
  End If
  }
  End If

  Valahogy így kellene kinézni, de én már régóta nem programoztam VB-ben

• KrAt veterán

  #1003 2008-09-21 14:19:21

  Ú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

  

  KrAt

  veterán

  Nagyon kezdő vagyok még (ma kezdtem) de vki segítene?

  Miért lép tovább akkor, ha az egyik (akármelyik) textbox-ba (x2, x, cons) semmit nem írok, pedig ott van, ha a textlenght = 0, akkor írjon hibaüzenetet..

  Kód:

  If x2.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If cons.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x2.Text = 0 Then
  x2biztos.Show()
  x2igen.Show()
  End If
  
  If x.Text = 0 Then
  xbiztos.Show()
  xigen.Show()
  End If
  
  If cons.Text = 0 Then
  consbiztos.Show()
  consigen.Show()
  End If

  Mit rontottam el? Pedig az alsó 3 kódrészlet működik (ha az érték 0, akkor kérdezzen rá)

• lúzer veterán

  #1002

  #1000 Polyák

  2008-09-21 13:24:31

  Ú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

  

  lúzer

  veterán

  #1000 Polyák

  sqr (szám)

• lúzer veterán

  #1001

  #1000 Polyák

  2008-09-21 13:18: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

  

  lúzer

  veterán

  #1000 Polyák

  sok nyelvben ez, próbát megér

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