Új hozzászólás Aktív témák
-
-
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 -
szucs69
csendes tag
pár szóban kifejtem,
adott egy cipős cég, 6 fajta cipő, 10 színben, 15 méretben, összesen kb 1000 féle.
ha pl. rendelést akar valaki leadni arra gondoltam, hogy
combobox1=cipő
combobox2=szín
combobox3=méret
ha csak azt mondom a comboboxoknak, hogy rowsource innen és innen akkor kiad mindegyikbe 1000-1000-1000 sort ami azért elég sok és nem is jó válasz.
ezért arra gondoltam, hogy ha megnyitom combobox1 -t akkor csak a 6 fajta cipő jelenjen meg, kiválasztom és utána akkor már a további comboboxokban csak az ahhoz tartozó pl 8 szín és így tovább jelenjen meg, vagy az egész fordítva össze vissza mint mikor az excelben autószűrőzől.
nem ragaszkodom a comboboxhoz, csak a lényeg, hogy könnyen átláthatóan használható legyen.
remélem érthető a story.
Atesz -
Xewwwman
csendes tag
Szerintem jó dolog az a gomb, gondolom mikor pl valamivel játszol és pont akkor zavarnak msn-en bizony jól jön [nem kell kilépni] (persze ez tárgytalan ha kilépsz mikor mész játszani)
De ez is csak alkalmazásfüggő, valamelyik egyszerűen nem reagál rá.
Vagy ha valami közben gyorsan megkell valamit nézni a neten de nem akarsz kilépni a játékból akkor se jön rosszul
-
sonar
addikt
Hát a karakter konverzión gondolkoztam egy keveset, de úgy oldottam meg hogy csináltam egy szöveges fájlt amibe vannak a megfeleltetések (így sokkal dinamikusabb a program modul és bármikor felhasználhatom máshol is) és akár lehet cserélgetni / bővíteni / szűkíteni a listát egyszerűen:
pl.:
a=b
á=a
ő=o
aztán csinálok egy tmp fájlt amibe elvégzem a konverziót és a folyamat végén letörlöm az eredetit és a tmp-t másolom a helyére
képet meg eccerüen. Mivel html alapu a megjelenítés a szintén szöveges fájlban megadott stringre keresek rá és kicserélem a szöveget.
pl:
smile=img src=mosoly.gif
kb ennyi
[Szerkesztve] -
-
-
-
rákász
csendes tag
Eddig excel, de már próbálkozom Access makrókkal is.
Egyébként semmi alapom nincs, az összes makrómat eddig google-ből szedtem és szedem össze, innen-onnan, immár lassan egy éve... lelkes érdeklődő vagyok, aki csak a munkáját szeretné megkönnyíteni
nem is tudtam, hogy exe állományokat is lehet VB-ben készíteni...
Nos, úgy hiszem, gyakran fogom látogatni ezt a fórumot -
Polyák
tag
Aki keres talál!
Private Sub Form_Load()
Label1.Caption = Winsock1.LocalIP
End Sub
Az összetevőknél használni kell a Microsoft Winsock Control 6.0 (SP5)-t (MSWINSCK.OCX).
http://a1vbcode.com [link]
Imádom ezt az oldalt Itt mindent megtalálok, persze példaprogikból. Igy talán könnyebb is mert amit keresek egyből látom gyakorlatban is. Csak ajánlani tudom!
[Szerkesztve] -
#798
[HUN]Zolee
őstag
Polyák
#794
[HUN]Zolee
őstag
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is -
#793
[HUN]Zolee
őstag
Polyák
#792
[HUN]Zolee
őstag
-
sonar
addikt
Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne
átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$ -
#745
[HUN]Zolee
őstag
Polyák
#744
[HUN]Zolee
őstag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve] -
#743
[HUN]Zolee
őstag
Polyák
#742
[HUN]Zolee
őstag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve] -
#735
[HUN]Zolee
őstag
Polyák
#734
[HUN]Zolee
őstag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If -
Möhönce
csendes tag
Üdv!
A hibakód: 429 Runtime error
A program egy másik alkalmazást vezérel SendeKeys-ekkel. (Aminek a Windows neve zárójelben van a Tasks-nál. Ez elvileg bármi lehet ami éppen fut, pl. ''Számológép''.)
Word-ben csináltam aztán VB6-tal is rendben volt sokáig. Ennek már 6 éve most meg egyikben sem megy ez az egyetlen sor.
Probáltam win98 alatt is a régi gépemen ugyanúgy ahogy akkoriban lehetett de teljesen ugyanez az eredmény.
Annyira jutottam összesen hogy beíráskor csak akkor jelenik meg a Tasks() paramétere, ha a References ablakban kijelölöm a Microsoft word Object Libraryt.
Talán valamilyen objektum vagy referencia kellhet ami régen megvolt most meg hiányzik? -
Gh0sT
addikt
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség. -
sonar
addikt
vb6
C nekem azért lenne praktikus mert progizok néha mikorvezérlőket is és asm-mel kiegészítve hatékony lenne. Amugy semmi bajom nem lenne az egésszel ha nem ilyen szarul lenne megcsinálva.
A frameworkel is az a bajom,hogy nekem sok régi gyengébb gépre kell kódolnom és ott eszméletlen lassú v nem is fut... -
Eccerű, a VB egy objektum orientált (khmm, inkább objektum alapú) nyelv. Egy objektum viszont önmagában csak akkor fog létezni ,ha először létrehozzuk, erre szolgál a Set parancs. Na most a filerendszer is önmagában egy objektum, és ez az objektum tartalmazza pl a fileokat, a megnyitó (open) parancsot, stb.
A te példádban az fso csak az objektum neve, ez bármi lehetne. -
Jester01
veterán
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod. -
Használd az inStr és az inStrRev kereső funkciókat
pl: mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
ha a filename =''e:\kepek\vegyes\uj.jpg''
akkor a végeredmény uj.jpg lesz
A meghajtó betűjelét nagyon egyszerű megállapítani (ugye csak az első karaktere a filenévnek), a maradékot meg e kettő levágásából kapod.
Egyébként ez VBScript, de gondolom VB-ben is ugyanígy kell használni.
[Szerkesztve] -
-
sonar
addikt
webbrowserbe tölsd be, ezt most csak rögtönöztem de vhogy igy kell
Public Sub ShowAnimatedGIF()
Dim sHTML As String, ut as string
' ut = a gif helye
sHTML = ''about:'' & _
''<html>'' & _
''<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no>'' & _
''<img src='''''' & ut & ''''''></img></body></html>''
.Silent = True
.Navigate sHTML
End Sub -
sonar
addikt
Szeva!
Megnéztem a progit. A design nagyon bejön.
Bár ahogy a read.me-t elolvastam nem volt egy nehézz program.
Még esetleg olyannal ki tudnád egészíteni, hogy csak számokat lehessen
az adott mezőbe írni, a rang+hsz mezőbe meg ne lehessen írni.
+ ha nincs meg a readme fájl akkor ne runtime erroral száljon el.
De ezek tényleg csak apróságok.
Más:
Azt nem tudja vki, hogy paramétert hogyan vesz át az exe?
pl.: mint bach programozásnál a %1
vagy mint a notepad is megeszi ha azt irom be, hogy:
notepad c:\sss.txt akkor megnyitja, ha nem létezik akkor létre hozza.
Hogyan tudom én ezt a paramétert/kapcsolót lekezelni?
Erre nincs vkinek tutorja vagy akármilye?
Már fél netet feltúrtam de sehol semmi használhatót nem találtam.
üdv sonar -
sonar
addikt
Hát ránéztem tegnap meccs közbe, de igen kusza a dolog.
egyszer nézd át a mixer.bas ba a hangerő részt. Ott egy csomó komponens van ami nincs is. És ott ha jól emléxem vmi más scrollbar-t használsz mint a frm-on. Ha azt megnézed szerintem jó lesz, mert ott állítja a balancot.
Aztán így ennyire tellett.
No megha kikommentezed akkor magad is rájössz a hibákra. Én legalábbis úgy szoktam a hibáimat keresni.
[Szerkesztve]
bár ebbe nem vagyok biztos
átláthatóbb később könnyebb módosítani
Új hozzászólás Aktív témák
Hirdetés
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- HiFi műszaki szemmel - sztereó hangrendszerek
- Motorola Edge 40 - jó bőr
- Házi hangfal építés
- Zelda Játékok
- One mobilszolgáltatások
- PayPal
- hdanesz: Elektromos autózás - első élmények
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Motoros topic
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
- AKCIÓ! Épített KomPhone R5 4500 16GB RAM 240GB SSD RX 6500 XT 4GB GAMER PC termékbeszámítással
- Apple iPhone 13 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Honor Magic7 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Sony PlayStation 4 PRO 1TB SSD fekete játékkonzol extra játékokkal garanciával hibátlan
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest