[link]
Tessék.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

nemtom érdekes-e még, de én (vba-ban) a futás kezdetekor benyomtam az időt egy változóba, majd a végén kivontam az éppen aktuális időből. ez segít talán.

lemaradtam, itt a kód:

kezdoido = Now 'elején megadtam a mostot.

itt sokáig futik valami...

MsgBox '' összesen '' & DateDiff(''s'', kezdoido, Now) & '' másodperc telt el.'' 'végén kivontam.

Király vagy!
Hogy én ezt mit kerestem

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember….Your life – Your choices!

Sziasztok!

Kezdő VB-sként olyan kérdésem van, hogy a francba lehet elinditani egy file-t vb-ben?
azt szeretném, ha miután lefutott a programom lényegi része, inditson el egy .bat filet...
lehet ilyet?

''Egy aprócska kalapocska, benne csacska macska mocska...''

shell parancs a barátod

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember….Your life – Your choices!

Sziasztok! Egy Excel táblázaton dolgozok, végül is speciális leltár-nyilvántartó valamicsoda lenne. Több munkalap, hivatkozások egyikről a másikra. A következőt szeretném. Adva lenne egy beviteli mező amelybe be kell adni a változtani kívánt értéket, és mellette egy másik beviteli mező, ahová az kerülne, hogy milyen értékre szeretném változtani.(nem feltétlenül csak számérték, hanem esetenként szöveg is). Majd (mondjuk egy parancsgomb megnyomásának segítségével) egy adott munkalap adott tartományán lefuttatna egy vizsgálatot és ahol előfordul a változtatni kívánt érték, ott azt lecserélné a kívánt értékre. Segítsetek legyetek szívesek, hogyan tudnám ezt elkészíeni. Köszi!

[Szerkesztve]

megathx!

''Egy aprócska kalapocska, benne csacska macska mocska...''

Én Visaul Basicban dolgozom. Szeretem is. Ti hogy vagytok vele?
A programjaim: www.teamattic.com oldalon

Sziasztok!

Egy gyors kérdés: épp nézegetem a Visual Basicet és nem tudom eldönteni, hogy adatbázis kezelésre mennyire lenne alkalmas. Eddig Accesst használtunk, de szeretném magát a felületet átteni VB-re. Úgy gondoltam, hogy az adatbázis szerkezetén nem változtatnék, hanem ahhoz kellene hozzáférnem VB-ből (az Accesshez hasonló űrlapos megoldásokkal). Az eddigi benyomásaim vegyesek. Egyrész viszonylag könnyű használni, de design szempontjából kevés lehetőségem van. Pedig itt most pont az lenne a lényeg, hogy egy teljesen letisztult profi külsőt kellene kölcsönözzek a programnak. Emellett persze minden olyan lehetőséget ki tudjak használni, ami accessben megvolt.

Esetleg tudnátok valami más programnyelvet ajánlani, ha ez nem jönne be?

Soha nem késő, hogy azzá válj, aki lehettél volna. *** Android fejlesztőt keresünk: http://tinyurl.com/9pjhpyd

Hm esetleg lehet csatlakozni?

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember….Your life – Your choices!

Az új VB Express nagyon jó erre a célra (és ingyenes), de arra készülj fel, hogy nem lesz benne vizuális SQL szerkesztő, mint az Access-ben. De amúgy jó. Ja és az Access űrlapjait nem fogod tudni használni benne, max a táblákhoz, lekérdezésekhez férhetsz hozzá, tehát újra kell designolni az egészet.

Go for the eyes, Boo, go for the eyes!

Köszönöm! Mennyire vagy otthon adatmodellezésben? Most valami új dolgot szeretnék kipróbálni, de magam sem tudom, hogy mit.

Soha nem késő, hogy azzá válj, aki lehettél volna. *** Android fejlesztőt keresünk: http://tinyurl.com/9pjhpyd

Szerintetek azt hogy csináljam meg, hogy a szovegdobozba beírt szöveg legyen a webböngésző url-je?
Így próbáltam:
TextBox1.Text= WebBrower1.Url vmit ugyanezt fordítva, de a fordító nem fogadta el. Az egészet egyébként a form load eseménykezeljébe írtam.

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

a fordító nem fogadta el

Na és mégis mire panaszkodik?

Jester

Azt írja ki, hogy: ''Value of type 'String' cannot be converted to 'System.Uri'. ''

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

TextBox1.Text= WebBrowser1.Url.AbsoluteUri
Esetleg ToString

[Szerkesztve]

Jester

Hogy lehet új objektumot adni a VB . NET be kódbol ? ( most egy PictureBox-ot kéne hozzadni). Nem sikerült még rájönnöm

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

Ezt a hibaüzenetet kapom program indításnál.[link] Valaki tudna segíteni?Köszi!

Ok, megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri
Erre azt írja( már nem az alsó sorban, hanem fordítás közben) hogy
Null Reference Exception was unhandled
Object reference not set to an instance of an object.

Aztán megpróbáltam így:
TextBox1.Text = WebBrowser1.Url.AbsoluteUri.ToString
Ugyanez a hiba
Aztám így:
TextBox1.Text = WebBrowser1.Url.ToString
Így is rossz. Na most mi legyen?

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

Az a gyanúm, hogy WebBrowser1.Url nothing-ot ad vissza. Ellenõrizd le.

Jester

Ajaj! Mit értesz az alatt, hogy nothingot ad vissza? Hozzá adtam a WebBrowser1-et, ha arra gondolsz. És hogy ellenőrizzem le?

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

Talán fordítva kellene. A textboxot kéne jobb oldalt írni. Ha azt akarod,hogy annak a tartalmát írd át a webbrovserbe.

A tudást mástól kapjuk, a siker a mi tehetségünk - Remember….Your life – Your choices!

Úgyérted, hogy:
WebBrowser1.Url.ToString = TextBox1.Text ?
Így a ....url.AbsoluteUri kiesik, mert az csak ''read only''
Egyébként se így, se úgy nem jó, viszont tényleg a textbox tartalmát szeretném átírni a webbrowser-be

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

Ez eszembe sem jutott
tkazmer: Tehát a textboxba írt url-t akarod megjeleníteni?
Ehhez nézd meg van-e valami NavigateTo() vagy hasonló metódusa a webbrowsernek és azt hívd meg.

[Szerkesztve]

Jester

Hogy lehet hexa kódvól szöveget csinálni?

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

ChrW(CLng(''&h'' & x))
Ahol x a hexa kód string formában. Stringre karakterenként ciklusban.

Jester

köszi

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

Köszi! Így már műkszik, igaz nem navigate to, hanem csak simán navigate, de ez asszem mindegy.

úgy tervezték, hogy kibirjon egy atomtámadást is. De nekünk komolyabb fegyvereink vannak, mint pl Béla bá, a földmunkagépkezelő

Helló mindenkinek!

Lenne pár kérdésem VB6-al kapcsolatban. Az egyik az lenne, hogy felépítettem egy gráfot directshow filterekből, amiben van egy Video Renderer. Amikor futtatom a gráfot, akkor a videó külön ablakban jelenik meg. Hogy lehetne ezt rátenni a formra?
A másik kérdésem az lenne, hogy hogy lehet a Microsoft DV and VCR filter tulajdonságait állítani? A tulajdonság ablakot meg tudom nyitni, és az ott található gombokkal tudom vezérelni a kamerát. Hogy lehetne ezt megcsinálni anélkül az ablak nélkül, forráskódból? Egyáltalán a filterek tulajdonságait hogy lehet állítani programból?

Előre is köszi a segítséget!

http://creationart.hu/

Odáig sikerült eljutnom, hogy létrehozok egy ilyent: Dim cam_kont As VBVideoControl vagy Dim cam_kont As CameraControlInfo, de ezek nem akartak működni, és az MSDN-en sem találtam leírást. De viszont találtam olyant, hogy IAMExtTransport a DirectShow Interface-k között (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp) de ezt nem tudom, hogy hogy kell használni.
Van ötletetek?

http://creationart.hu/

UP

http://creationart.hu/

Meg sikrült csinálnom, hogy a videó a formon legyen. Már csak abban kellene segítség, hogy ezt hogy lehetne használni VB6 alatt: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/iamexttransportinterface.asp [link] .

Előre is köszi!

http://creationart.hu/

Sziasztok!

Nagyon kezdő vagyok még a Visual Basicban, és most még csak az Office-ba épített változatával ismerkedem. Két kérdésem volna:

1) Tud valaki tanácsot adni, hogy miként kezdjem el elsajátítani a VB-t (a próbálgatáson kívül, mert most még csak a makró rögzítése alapján ügyeskedem az Excellel)? Esetleg létezik valami jó könyv erről? (A Visual Basic és Excel programozás címűt néztem, az nem az igazi.)

2) Egy egyszerű függvényt akarok létrehozni, amely egy Excel tábla második oszlopában azt figyeli, hogy hányadik sortól kezdve üresek a cellák, ezt az értéket megjegyzi, és az oszlop elemeit az elejétől eddig a sorig másolja át egy eltérő munkalapra.
Ciklusokkal még régen, C64 Basicjénél találkoztam, és bár valamennyire emlékszem rájuk, most valahogy nem sikerül összehoznom a dolgot. A logikája már megvan a fejemben, de nem tudom utasításokba önteni.

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

Visual Basic kék könyv kezdetnek jó. Csak hallkan jegyzem meg, itt jó sok minden van: http://ebookz.hu/ebook.php?alkat=Visual%20Basic

http://creationart.hu/

Helló!
Az is megoldás lehetne, ha a MSDV tulajdonság ablakában található gombokat használnám. De ehhez valahogy meg kellene oldani, hogy a fx.ShowPropPage hWnd módón meghívott ablaknak ne legyen kerete, és meghatározott helyen jelenjen meg, akár formon belül, de az sem baj, ha csak simán nincs kerete. Egy formból lehet állítani egy másiknak a kinézetét? Legalább ha csak a helyzetét lehetne állítani, és a fölösleges részeket kitakarni, az is már jó lenne. Ezeknek a tulajdonság lapoknak mindig több füle van, és jó lenne, ha csak az általam kiválasztott jelenne meg.
A másik, hogy WinAPI függvényekkel lehet valahogy vezérelni egy olyan formot, amit nem látok?

Előre is köszi a segítséget!

http://creationart.hu/

UP

http://creationart.hu/

UP

http://creationart.hu/

A múltkori problémámat sikerült megoldanom. Mondjuk sejtettem, hogy egy egyszerű ciklus-utasítás révén menni fog a dolog, csak jól meg kellett ''fogalmazni''.

Most viszont egy olyan átfogó kérdésem lenne, hogy miként lehet az egyes Excel táblák határait megállapítani? Érthetőbben kifejezve: az adott munkalapon szereplő táblázat hány soros és hány oszlopos? Ez ugye ránézésre simán megy, de ha automatizálni akarom a folyamatot, akkor már gondban vagyok, mert makrórögzítés révén nem tudom kisilabizálni a dolgot. Ezenkívül van valamilyen függvény vagy utasítás, amely megállapítja, hogy az adott fájl hány munkalapból áll?

Ha nem teljesen világos a kérdésem, szívesen leírom a segíteni szándékozó kedves emberkének, mi is a pontos feladat, aminek a részeként ezek kellenek.

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

az első kérdésre, mingyárt megírom a macrot

a második engem is érdekelne

Hány cella van egy oszlopba :


Sub mennyi_van_kitoltve()
Worksheets(''Munka1'').Select
Db = 0
If [A1].Value = '''' Then
Db = 0
Else
If [A2].Value = '''' Then
Db = 1
Else
For Each cella In Range([A1], [A1].End(xlDown))
Db = Db + 1
Next
End If
End If
ActiveCell.Value = Db
End Sub



[Szerkesztve]

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

hány oszlop :


Sub mennyi_van_kitoltve_a()
Worksheets(''Munka1'').Select
Db = 0
If [a1].Value = '''' Then
Db = 0
Else
If [a2].Value = '''' Then
Db = 1
Else
For Each cella In Range([a1], [a1].End(xlToRight))
Db = Db + 1
Next
End If
End If

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.''

Köszi a segítséget, végül én a következőt találtam ki kedden a sorok számának megállapítására (persze ehhez az kell, hogy az első üres cella alatt már ne legyen több nem üres cella):

Sub elsourescella()

' Hogyan kell megállapítani az első üres sor helyét
Dim i As Integer ' változó definiálása
i = 3 ' változó alapértékének meghatározása
While Cells(i, 2) <> '''' ' i-dik oszlop vizsgálata az első üres celláig
i = i + 1
Wend

End Sub

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

Szerintem ilyen kérdésekkel ballagj át az excel makró topikba ott vannak hozzáértõk.
Amúgy én ezt találtam: [link]

Jester

Köszi a tanácsot! Eddig nem találtam azt a fórumot

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

Azóta már megtaláltam, azért annyira láma nem vagyok.

Még egy utolsó dolog:

HunZolee-nak üzenem, hogy egy könyvben megtaláltam a munkalap-számolás megoldását.

Pofonegyszerű: Sheets.Count. Ha ezt egyenlővé teszed bármilyen változóval, már számolni is tudsz vele.

''When the sailmen's sailing away, he shows that the dream of Lemuria is true''

küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...

ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count
vagy fixen cells(1,1).CurrentRegion.Rows.Count