- Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
- Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- Egészen nagy teljesítményspektrumon fedné le a mobil piacot az AMD
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- VR topik (Oculus Rift, stb.)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Házimozi haladó szinten
- Gaming notebook topik
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Apple notebookok
- Milyen alaplapot vegyek?
- ZIDOO médialejátszók
- AMD Navi Radeon™ RX 6xxx sorozat
Hirdetés
-
Az USA vizsgálja a RISC-V kínai terjedésének kockázatát
ph A Kereskedelmi Minisztérium egyelőre csak felméri a helyzetet, egyelőre nem látni, hogy tudnak-e bármit is tenni.
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
Új hozzászólás Aktív témák
-
VIC20
őstag
Tényleg, röviden össze tudja valaki foglalni, miért érdemes VB.NET-re váltani?
-
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
sA tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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. ?
[ Szerkesztve ]
-
VIC20
őstag
válasz Jester01 #1056 üzenetére
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
-
VIC20
őstag
válasz Jester01 #1058 üzenetére
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", 1500Vagyis 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 IfA 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 IfListView1.Sorted = True
End SubEzzel 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?
[ Szerkesztve ]
-
ArchElf
addikt
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)[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
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 SubIlletve 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! -
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[ Szerkesztve ]
-
Boolash
aktív tag
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 SubEz í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[ Szerkesztve ]
-
Boolash
aktív tag
válasz Boolash #1072 üzenetére
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 -
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.
-
DerStauner
senior tag
válasz DerStauner #1075 üzenetére
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).
-
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!
<ELADÓ: Pixel8HibridTok> Pixel 8 | C4 SpaceTourer 1.2 Pt '18 | 208 1.2VTi '18 | https://www.spritmonitor.de/en/user/MC_Pite.html
-
MODERÁTOR
válasz DerStauner #1075 üzenetére
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.
***
-
[HUN]Zolee
senior tag
Üdv.
hogy lehet egy új objektumnak aminek a nevét egy tömbbe tároljuk eseménykezelést csinálni?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
Meg tudja valaki mondani, miért nem viszi át a textbox tartalmát, csak amit alapértelmezetten írok be? [link]
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
[HUN]Zolee
senior tag
válasz [HUN]Zolee #1080 üzenetére
Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
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.
-
sbalint
csendes tag
Könyvtár készítésének idejét szeretném lekérdezni VB6.0-ban. Tud valaki megoldást?
-
ArchElf
addikt
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
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
ArchElf
addikt
Remélem segít:
http://social.msdn.microsoft.com/Forums/en-US/windowscompatibility/thread/162aad68-2723-4a41-8b7b-7ee1a54cd774/AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
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. -
ArchElf
addikt
válasz zabomate #1092 üzenetére
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
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
zabomate
csendes tag
-
-
zabomate
csendes tag
válasz [HUN]Zolee #1097 üzenetére
Köszi!
-
ArchElf
addikt
válasz zabomate #1096 üzenetére
És ha shell() nem jó: Win32 API megvalósítás
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
aktív 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?[ Szerkesztve ]
Youth hides the key to salvation
Új hozzászólás Aktív témák
- PlayStation 5
- Samsung Galaxy A54 - türelemjáték
- Filmvilág
- VR topik (Oculus Rift, stb.)
- Samsung Galaxy S24 - nos, Exynos
- Gyúrósok ide!
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Az USA nem akarja visszafogni Kína növekedését
- Kerékpárosok, bringások ide!
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...