-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Új hozzászólás Aktív témák
-
dany27
őstag
én is így próbáltam de így hibát dob rá....
Ezt:
Nincs megadva „Public Sub Pg_clearClick(sender As Object, e As System.EventArgs)” következő paraméterének argumentuma: „sender”. (BC30455) - D:\Programozás\Basic\calculator\MainForm.vb:352 -
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 -
lúzer
veterán
-
lúzer
veterán
-
lúzer
veterán
Kiderül...
autocad alá kéne, nézem...bakker, valami licencproblémát jelez beillesztéskor
... because, it is not properly licensed -
Noobi
tag
-
lúzer
veterán
-
lúzer
veterán
-
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 -
sonar
addikt
-
Xewwwman
csendes tag
Ez érdekes!

Játék közben ha véletlenül lenyomtam a windows gombot, felugrott a start menü és a játékot lerakta tálcára. Nos ez elég idegesitő, föleg ha vmi akcio v. szimulátor játékról van szó. A windows gombot is le lehet tiltani?
Én nem VB-ben oldotam meg ezt.
egyszerüen kiszedtem a windows gombot.
De gondolom jobb megoldás ha le van tiltva 
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
Sziasztok!

Na ki min dolgozott a nyáron
Jönnek a hideg napok, ismét lecsücsülök a gép elé.
Most van időm, a nyár alatt nem is láttam VB-t.
Itt az ideje a folytatásnak.
Nem todom h mibe kezdjek, vagy hogy mik is a félbehagyott programjaim. Lusta voltam még megnézi is, hátha elmegy a kedvem. Nos, ki mit alkot éppen?
Üdv ujra!
Szia!
Én nem sok mindenen...
alig volt szabadidőm. Csupán egy két apróságot ami a munka megkönnyítését segítette.
Az egyik az a windowsban bizonyos gombokat letiltott
(különösen a CapsLock-ot)
Majd belinkelem -
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] -
sonar
addikt
-
sonar
addikt
A progim komunikál a telefonnal és egy oldalra kiteszi a szöveget, most ilyen apróságokon variálok,hogy a telóból leszedett szövegen karaktercsere, esetleg adott szöveg helyett vmi képet dobjon be, mennyi sms lehet a falon egyszerre...
most debuggolgatok... -
sonar
addikt
Igazából egy sms-fal progin dolgozom mostanában, (már elég jól áll a project) nem lesz egy extra, de falusi projectoros célra okés lesz.
Utánna meg valszeg csinálok egy póker játékot amit lanon is lehet játszani
ebben most érzek kihívást
-
sonar
addikt
Nem, mostanában sajnos nincs annyi időm vb-zni.
Keresek vmi vb-s izgalmas kihívást csak még nem tudom mi legyen az.
Vmi kicsit komolyabb project amivel el leszek meg tanulni is lehet belőle.
Nincs vmi jó ötleted/tek? -
rákász
csendes tag
Sziasztok!
A segítségeteket kérem! Van egy progim amit arra készítettem hogy egy mappában lévő (nagy felbontású) képekböl miniatüröket készít egy ''mini'' nevű mappába.
Végülis a progi kész, csak az az egy gixer van hogy a képet nem tudom lekicsinyíteni! Szal a felbontást kéne 2816*2112-ről kb 160*120-ra változtatni. Mindig az eredeti méretben menti el őket.
Tudna nekem segíteni valaki?
Előre is köszi!
Kedves Polyák,
Ezt találtam a gúglin, nekem kínai, de hátha hasznos Neked,
http://www.catenary.com/howto/enlarge.html
A keresőbe ezeket a szavakat ütöttem be: picture size visual basic
Már az első oldalon is számos hasonló oldal jött le...
Sok szerencsét
-
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
-
rákász
csendes tag
Polyák megvan, sikerült értelmeznem a forráskódot, mostmár működik minden. Nem gondoltam volna, hogy formokkal kell operálnom...
Még egyszer hálás köszönet! -
rákász
csendes tag
Polyák, ez nagyon fain, ezer köszönet!
A VB programozás része részletesebben is érdekelne, mivel ezt egy makró részeként szeretném használni, némi módosítással (melyet talán magam is meg tudok csinálni...) -
Ndruu
MODERÁTOR
-
sonar
addikt
Pont erre gondoltam én is! De megelőztél.

Amugy érdekelne hogy hogyan lehetne megoldani ezt listbox-al. Mármint nekem csak a kilistázás kéne, mert el akarom menteni szöveges fájlként a mappában található fájlok listáját. Ez lehetséges? Már próbálkoztam pár dologgal de nem jött össze
[Szerkesztve]És innen miért nem tudod kimenteni?

-
meone
tag
Üdv
Igen MessageBox-ba írja ki vagyis ott jerleníti meg.
Csak az a baj hogy már jövőhéten jön a vizsga és még sehol nem állok vele.
-
meone
tag
-
palerNEW
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]Polyák:Aki keres talál!
Így van, így van
-
Polyák
tag
Sziasztok!
Bocs hogy régen irtam, (lett is volna mit ezekhez a hozzászólásokhoz
) de nem volt sok időm VB-vel foglalkozni. Meg amugy másra sem sok.
Nos már rég meg akartam kérdezni hogy hogyan tudom előhivatni az IP címem?
Mondjuk MsgBox-ba vagy Label-be, mindegy csak olvasható legyen. 
Mivel dinamikus IP-címem van, minden idításnál kirakna egy kisablakot amibe az IP-címem van. Ennyi lenne.
Köszi!
Elolvastam az előzményeket
hát volt amin nevettem és volt amiben egyetértek! Amugy én is csak a saját szórakoztatásom és kényelmem érdekében programozok. 
[Szerkesztve]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] -
sonar
addikt
-
[HUN]Zolee
őstag
-
lajafix
addikt
A VB helpjébe belepillantva ezt találtam:
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i -
sonar
addikt
-
sonar
addikt
-
[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
-
[HUN]Zolee
őstag
hirtelen ez jutott eszembe (bár én 7 be gondolkodok nem 6 ba)
tömbe felosztod a szót karakterekre, majd random számgenerátorral(paraméterként a szó hosszát megadva) és kikötésbe beleteszed hogy a random nem dobhat azonos számot.
kicsit macerás, de elvbe jó
-
sonar
addikt
Azzal pofon egyszerű. Az a baj a browser-rel hogy nincs stretch funkciója és a képen nem pont a szegélyhez illeszti. Próbáld ki.
Olyan kéne nekem, mint ahogy Image-ba lehet betölteni képet winyóról, csak netről szedné le.
Gondoltam arra is hogy lementené a saját mappájába (megerőstés nélkül, észrevehetetlenül) és onnan töltené be Image-ba. Ezt StartDoc-kal próbáltam de az az alapértelmezett böngészőben nyitja meg a képet. Szal ezt sem tom hogy hogyan csináljam.
Melyik lenne jobb megoldás? Illetve melyikben tudnál segíteni?
Amugy az a dodi diassembler csak VB4-hez jo.hat passzolom a kerdest. Csak otlet volt. Igazabol mit is akarsz csinalni?
dodi-t nem tudtam, hogy vb4hez jo. -
sonar
addikt
-
sonar
addikt
Hali!
Azt szeretném megkérdezni hogy hogyan Tudob PictureBox-ba, vagy inkább Image-ba képet betölteni internetről?
Probáltam igy:
Image1.Picture = ''http://mittomén.hu/kep.jpg''
meg igy is:
Image1.Picture = LoadPicture(''http://mittomén.hu/kep.jpg'')
De gondoltam hogymen lesz ilyen egyszerű. Miért is lenne az?
Hogyan tudnám ezt mégis megcsinálni?
A válszt előre is kösz!
[Szerkesztve]talán url:// kéne elé
bár nem biztos -
sonar
addikt
Hi all!
Van egy pár progim aminek már nincs meg a forrkodja de lusta vok ujra megírni őket.
Kellenek belőle infok hogy mit hogyan is kell, mert már nem nagyon emléxem.
Ezeket a progikat valahogy vissza lehet ''forgatni'', vagy vissza ''fordítani''??
Fontos lenne!
Mikor még TurboPascal-lal foglalkoztam akkor volt ilyen progim hozzá, de vb-hez nem találtam.
Előre is köszi!
keress ra guglin v yahoon dodi disassemblerre, az elvileg tudja
-
Jester01
veterán
A paramétereket keresd meg msdn-ben ha pontosat akarsz tudni

Az lID azt hiszem az ikon sorszáma.
Az sTip az a tooltip szövege.
A hIcon pedig az ikon handle. Be kell tölteni az ikont és annak valami handle propertyje. -
Jester01
veterán
Hali!
Köszi!
Ezt bogarászom éppen, de nem jutottam sokra.
Ezekkel probáltam: TrayInitialize Form1, meg: TaskbarShow
de nem sikerült, én értettem félre valamit? Engem ezek a modulok mindig szivatnak. Nem értem hogy hogy hivatkozzak most erre? Tudnál nekem segíteni? Meg amugy általánosságban a modulokban tudnál nekem segíteni?
Köszi előre is!
Ezt egy kb. 4 éves projektbõl bányásztam elõ, azóta szerencsére nem láttam VBt

A TrayInitialize után meg kell hívni a TrayAddIcon-t, attól lesz ikon. Kilépés elõtt ezt törölni kell. -
Jester01
veterán
Ha annak hívják, akkor igen!

Mint a hangerőszabályzó ikonja meg egyes virusírtók ikonja meg az msn ikonja(zöld muki), stb.
Nos, azt szeretném hogy programom ne látszódjon a taskbar-ban (ezt sikerült megoldanom, nem volt nehéz), csak a ''systray'' ikon látszódjon és onnan elérhessek jobbklikkel opciókat, mint pl a hangerőszabályzónál a ''Hangerőszabályzó megnyitása'', ''Hangtulajdonságok belállítása''.
Elöre is köszi!
VB6-hoz nekem van egy régi modulom: [link]
MOD: jobbgombos dolgot nem csinál, csak duplaklikkre előhozza az ablakot.
[Szerkesztve] -
sonar
addikt
Üdv mindenkinek!
Hogyan tudom azt megcsinálni, hogy az óra mellett egy kis ikon megjelenjen ahogy a hangerőszabályzó vagy a messenger ikonja is. Ha rákattintok megjelenjen egy menü, de biztos értitek miről beszélek. Nos, ezt hogyan tudom megoldani? Azt meg tudtam csinálni hogy a taskbarban ne jelenjen meg de ezt viszont már nem tudom hogy is csináljam!
Előre is köszi!
Mármint systray iconra gondolsz?
-
sonar
addikt
Hali!
Nos, nem biztos hogy jól értelmezem, hogy mit is akarsz, de én igy próbáltam, és jó is:
Sub txtText_lostfocus()
Dim tmp As String
tmp = txtText
tmp = Format(tmp, ''YY,MM,DD'')
txtText.Text = tmp
End Sub
De lehet félreértettem vmit.
Amugy a 35620 szám az egy értelmes dátum formátum. Ez a szám a 1997.07.09
dátumot takarja. Excelben meg is nézheted. Beirod egy cellába ezt a számot és dátumformátumot adsz neki.
Nos remélem tudtam segíteni és nem mondtam hülyeséget.De én számot akartam nem dátumot!
És vesszőt kell tenni akkor jó lesz.
Próbáld ki ha számot irsz be és vessző helyett pontot irsz akkor írja ezeket a hülyeségeket. -
sonar
addikt
-
sonar
addikt
Megvan a megldás a kérdésemre ily késői órán!
Szal csak annyi hogy előre betöltöm a sorokat aztán hivatkozok rájuk!
Private Sub Combo1_Click()
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$
Close #1
End If
If Combo1.Text = ''Angol'' Then
Open ''c:\2.txt'' For Input As #2
Line Input #2, cimke1$
Line Input #2, lab1$
Line Input #2, lab2$
Line Input #2, lab3$
Line Input #2, txt1$
Line Input #2, txt2$
Close #2
End If
Me.Caption = cimke1$
Label1.Caption = lab1$
Label2.Caption = lab2$
Label3.Caption = lab3$
Text1.Text = txt1$
Text2.Text = txt2$
End Sub
Private Sub Form_Load()
Combo1.AddItem ''Magyar''
Combo1.AddItem ''Angol''
End Sub
Ha kiválsztom a nyelvet egyből beírja azon a nyelven! De ügyes vagyok!

Erre rájöhettem volna előbb is nem?
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$ -
[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] -
[HUN]Zolee
őstag
Hali sonar!
Köszi! Még jól jöhet!
Lenne egy kérdésem is:
A legtöbb programban lehet nyelvet válsztani. Ezt sok ugy csinlálja hogy van egy pl. hungarian.ini fájl és abban vannak a szavak. Valahogy így:
[Form1]
SpeedButton4=Beállítás ''L''
SpeedButton5=Réteg előnézet ''K''
SpeedButton6=Render ''J''
SpeedButton11=100
SpeedButton12=OK
Label13=100%
SpeedButton14=Stop
SpeedButton15=Kijelölés eleje ''F''
SpeedButton16=Kijelölés vége ''T''
CheckBox1=Auto előnézet ''U''
CheckBox3=Auto render
CheckBox6=Nagyít
TabSheet1=Effekt
Label1=Szín:
Label2=Vastagság 1:
Label3=Vastagság 2:
SpeedButton1=...
Label7=Fényesség:
Label10=Penge:
SpeedButton2=...
Label11=Üres
Label12=Üres
Label14=0 ms
Label25=Elmosás:
Label26=Ív:
Label27=Elmosás:
Label28=Ív:
CheckBox10=
CheckBox11=
...
Ezt egy program magyar.ini állományából másoltam ki.
Hogyan tudok hivatkozni ezekre a cimkékre? Először ugy probáltam ahogy régebben mondtad nekem.
Line Input #filenum, sor
De ez egy sort olvas be. Ha mondjuk a 213.sort akarom előhívni akkor 213x kell előhívnom a parancsot. De ez nem igazán praktikus.
Hogyan tunék én ezekre a cimkékre hivatkozni?
Remélem te tudod, vagy valaki tudja.
A választ előre is köszi!
[Szerkesztve]Ü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] -
[HUN]Zolee
őstag
Hali!
Van egy gondom!
Ha rajzolok PictureBox-ba, nem folyamatosan húzza a vonalat hanem pöttyöket rajzol. Főleg ha gyorsan rajzolok. Ennek biztos hogy így kell működni? Vagy valamit már megint nem értek?
A formon csak egy PictureBox van, a neve kep
Private Sub Form_Load()
kep.DrawWidth = 5 'vonalvastagság
End Sub
Private Sub kep_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
kep.PSet (X, Y)
End If
End Sub
Hogy tudom ezt megoldani?
Előre is köszi!
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 -
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
Jester01
veterán
-
sonar
addikt
-
sonar
addikt
-
sonar
addikt
Próbáltam vágólapra másolni, de nem igazán azt csinálta amit akartam. Képet mentett vágólapra (Paint-ba illesztettem be), de nem az a kép volt ami a PictureBox-ban van, hanem egy VB ikon.
Private Sub Command1_Click()
Clipboard.SetData Picture1.Picture
End Sub
Vagy nem ezt kellet volna csinálnom? Szöveggel müxik.
Clipboard.SetText Text1.Text
De képpel miért nem?
mod: helyesírás és fogalmazás
[Szerkesztve]Talán így
commondialog.showsave
SavePicture Picturebox.Image commondialog.filename -
sonar
addikt
-
sonar
addikt
Lenne egy kérdésem. (lehet hogy most hülyének fogtok nézni!
)
Van egy PictureBox-om. Abban van több PictureBox. Ezekből a kis PictureBox-okból kialakul egy kép a nagyobb PictureBox-ban.
Nos, ezt a kialakult képet ki lehet valahogy menteni? Vagy legalább vágólapra másolni? Vagy hülyeséget kérdeztem?
Épp ezzel próbálkozok.
(Késő este ... holnap suli
)
A válasz(oka)t köszönöm!
[Szerkesztve]Print Screen

-
Gh0sT
addikt
-
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? -
sonar
addikt
-
Gh0sT
addikt
-
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
Az egyik nagy szívfájdalmam, még hogy nem lehet asm kódot beszurni és nem tud bitműveleteket. Nem sűrűn, de néha nagyon jól jönne.
mod: mármint ami hiányzik a vb6-ból
[Szerkesztve] -
sonar
addikt
-
sonar
addikt
Tudom, hogy könnyebb a Basic (azért basic
) csak sokkal korlátozottabbak a képességei -
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... -
sonar
addikt
-
sonar
addikt
Ezzel már én is próbálkoztam, de én se találtam semmi használhatót
-
ollie
MODERÁTOR
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. -
sonar
addikt
Ez az úgynevezett objectum deklarálás.
A részletes kifejtést kihagynám, mert 100%-ban nálam sem világos, és nem akarlak téveszmékkel traktálni.
amugy pü-megy -
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. -
ollie
MODERÁTOR
Kéne egy kis segítség!
Van egy képnézegető progim. Társítva vannak hozzá a jpg formátumú képek. Tehát ha megnyitok egy képet ezzel a progivan indul. Ez müxik.
A progi ablaka alján van egy Drive egy Paht egy File list. Amikor futtatom a progit itt tudom keresni a képeket és megnyitni. Azt szeretném hogy amikor képet nyitok meg (kep = command ; kepmegj.Picture = LoadPicture(kep) - érted.) akkor a Drive, Path és File elemen a kép útvanala legyen.
Pl.: A kép útvaonala ''e:\kepek\vegyes\uj.jpg''. A Drive1.Drive legyen ''e'', a Path1.path legyen ''e:\kepek\vegyes'', és a File1.path is ugyan így.
Nos ezt hogy lehetne megoldani? Nagyon fontos lenne!
Előre is köszi!
[Szerkesztve]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] -
[HUN]Zolee
őstag
Kéne egy kis segítség!
Van egy képnézegető progim. Társítva vannak hozzá a jpg formátumú képek. Tehát ha megnyitok egy képet ezzel a progivan indul. Ez müxik.
A progi ablaka alján van egy Drive egy Paht egy File list. Amikor futtatom a progit itt tudom keresni a képeket és megnyitni. Azt szeretném hogy amikor képet nyitok meg (kep = command ; kepmegj.Picture = LoadPicture(kep) - érted.) akkor a Drive, Path és File elemen a kép útvanala legyen.
Pl.: A kép útvaonala ''e:\kepek\vegyes\uj.jpg''. A Drive1.Drive legyen ''e'', a Path1.path legyen ''e:\kepek\vegyes'', és a File1.path is ugyan így.
Nos ezt hogy lehetne megoldani? Nagyon fontos lenne!
Előre is köszi!
[Szerkesztve]Hy.Ha szépen megkérlek, átküldenéd nekem a programodat? szeretnék belőle tanulni egy kicsit.e-mail címemre jöhet. köszi

-
sonar
addikt
az az igazság, hogy szeptemberig sztem nem lesz belőle semmi.
Heti 2xer angolra járok munka után, meg most melóba is hajtás van. Mert szept 1ig át kell adni egy rendszert... emiatt mondtam le egy Németországi nyaralást is
de nincs elfelejtve a project! -
sonar
addikt
Nem bonyolult ez, annyira. Csak a html tagot mindenképpen hozzá kell vágni.
Portál dolog is alakul csak még van pár kérdés amit meg kell fontolnom meg el kell intézni és már mehet is a dolog. -
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
-
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
-
sonar
addikt
Ezt az oldalt nem is ismertem, de jó

Igazából ahogy mondják nem érdemes senkit se utánozni, mert akkor csak második lehet az ember
de vmi hasonlóra gondoltam. Aztán meg elsőre ugyse lesz tökéletes. -
sonar
addikt
Igazából nem gondoltam semmire, csak egy gyűjteményre.
Ha lesz időm akkor 7végén nekiülök és csinálok egy lapot. -
sonar
addikt
-
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] -
sonar
addikt
-
[HUN]Zolee
őstag
-
L3zl13
nagyúr
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag

Hmm.... Megéri?
A VB7-ben kell ilyen DLL a programom futtatásához:
VB1 : vbrun100.dll
VB3 : vbrun300.dll
VB4 : vbrun432.dll , vbrun416.dll
Kicsit idegesítő h csak akkor indul el ha ez a fájl az alkalmazás mellet, vagy a System mappában van! Főleg ha valakinek elviszem és neki nincs meg a VB.
[Szerkesztve]Nagy valószínűsége annak hogy nemkell neki dll , mivel az én gépemen sincs a system mappába se a VB mappájába.
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
-
[HUN]Zolee
őstag
mi köze az SP2-nek a VB hez?

Nekem SP1 van fent.
sonar köszi.
Most amit tudok azt megírom vb6-ba. majdmegy mail-be a forráskód meg ami még kell.
[Szerkesztve] -
sonar
addikt
Line Input #filenum, sor ' Beolvas egy sort
Beolvas egy sort a sor nevü stringbe, ha újrahívod akkor a következő sort olvassa be.
Tehát ha kégyszer hívod meg akkor a 2. sor lesz bent. -
sonar
addikt
-
[HUN]Zolee
őstag
VB1 ?

Ajánlom a VB.NET -et ez van most elterjedve sztem. VB.NET=VB7
Új hozzászólás Aktív témák
-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Autós topik
- Elektromos autók - motorok
- Vigneau interaktív lokálblogja
- LG LCD és LED TV-k
- GoodSpeed: Anker Charger (140W, 4-Port, PD 3.1) laptop, mobil, tablet töltő
- Fokozatosan erősít majd a szerverpiacon az Intel
- Jelszókezelők
- Milyen légkondit a lakásba?
- További aktív témák...
- Apple iPhone 14 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- GIGABYTE GeForce RTX 4090 GAMING OC 24G GDDR6X Videokártya! BeszámítOK!
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- GYÖNYÖRŰ iPhone 13 128GB Midnight -2 ÉV GARANCIA - Kártyafüggetlen, MS4860, 91% AKKSI
- AKCIÓ! Endgame Gear & Xtrfy gamer egerek /MZ1/OP1 8K/XM2we/XM1R/XM1 RGB (fehér/fekete/lila)/
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
)


De gondolom jobb megoldás ha le van tiltva 
Itt az ideje a folytatásnak.






átláthatóbb később könnyebb módosítani

