Hirdetés

2024. április 24., szerda

Gyorskeresés

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic

Hozzászólások

(#401) Jester01 válasza lapa (#400) üzenetére


Jester01
veterán

Én aztán nem értek hozzá, de az oldalon amit fentebb linkeltem többek között ezt írják:
The Range object's CurrentRegion property is not the best either because non-contiguous or incomplete records can cause an inaccurate reading of the number of used rows.

Jester

(#402) lapa válasza Jester01 (#401) üzenetére


lapa
veterán

ofkorze. de #392 óta még jobb nem született, legalább nem egyenként nézősös. jobb megoldást az excel autokijelölései sem szoktak adni...

upd: sorry benéztem, most nézem a linked...

[Szerkesztve]

(#403) lapa válasza Jester01 (#401) üzenetére


lapa
veterán

noigen, Bob fella megmondta a frankót :)

(#404) szasza_1 válasza szasza_1 (#389) üzenetére


szasza_1
senior tag

Ha már erre jártok, akkor már nekem is segíthetnétek. :)

(#405) matekmatika válasza szasza_1 (#404) üzenetére


matekmatika
tag

Én segítenék :) , nem azért nem segítek mert nem akarok. :(

[Szerkesztve]

(#406) tkazmer


tkazmer
addikt

VB.Net ben hogy kell azt megcsinálni, hogy a web browser a textbox tartalmára keressen rá?
Így próbáltam:
WebBrowser1.GoSearch(TextBox1.Text)
De erre azt írja a fordító:
Error 1 Too many arguments to 'Public Sub GoSearch()'

ú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ő

(#407) szasza_1


szasza_1
senior tag

Lenne egy olyan kérdésem, hogy hogyan lehet (gondolom winAPI-val) azt megoldani, hogy ha az egeret mozgatják, akkor a képen ne mozogjon a cursor. (VB6-ban)

(#408) sekli


sekli
addikt

Na egy nagyon béna kérdés jön :U , most keztem el VB-et, eddig ehhez hasonló RealBasic-et használtam és nem tudom, hogy ez miért nem megy: [link] -ezt letoltottem, és reggeltem a dll-t, ahogy mondja, aztán annyit csináltam, hogy raktam egy gombot, amihez beírtam ezt:

LedOn(''NUMLED'')

persze nem működött (''Sub or Function not defined'')

mit kell még tenni...?

(#409) sekli válasza szasza_1 (#407) üzenetére


sekli
addikt

engem ez fordítva érdekelne...:)

(#410) Jester01 válasza sekli (#408) üzenetére


Jester01
veterán

Ott van a tesztprogi mellette, nézd meg. Elõször is létre kell hozni egy példányt és annak a metódusát kell meghívni.

Jester

(#411) sekli válasza Jester01 (#410) üzenetére


sekli
addikt

hát egy kicsit fejtsd ki pls...:U

(#412) Jester01 válasza sekli (#411) üzenetére


Jester01
veterán

Mondom, hogy ott a tesztprogi, miért nem azt nézed? Idemásolom neked, parancsolj:

Dim KeyLeds as Object
Set KeyLeds = CreateObject(''Key.Leds'')
KeyLeds.LedOn(''NUMLED'')

Jester

(#413) matekmatika válasza sekli (#409) üzenetére


matekmatika
tag

És ez mire is jó? :) Vagyis azt éretm mit csinál, de mire is jó ez?

(#414) tkazmer válasza Jester01 (#412) üzenetére


tkazmer
addikt

Ez VB6 kód? Mert én kipróbáltam VB.Net-ben, és nem ment

Azt én sem értem, hogy mire jó, de hát csak kipróbáltam, ha már van

ú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ő

(#415) Jester01 válasza tkazmer (#414) üzenetére


Jester01
veterán

Igen, VB6, de szerintem ennek pont ugyanígy VB.NET alatt is mennie kellene.
Ugye az említett dllt felraktad és beregisztráltad?
Mit jelent, hogy ''nem ment'' :U

Jester

(#416) tkazmer válasza Jester01 (#415) üzenetére


tkazmer
addikt

Persze, felraktam, és regeltem is. A nem ment alatt azt értem, hogy deboggolni ugyan tudta a fordító, de én a kódot egy gomb eseménykezelőjébe írtam be, és amikor ráclickeltem, akkor kezdett el próblémázni.

Mostanra már sikerült megcsinálnom, valszeg az előző regeléssel lehetett a baj, mert unregeltem, aztán ismét regeltem, és így már ok

ú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ő

(#417) sekli válasza matekmatika (#413) üzenetére


sekli
addikt

Hát sok haszna nincs, de poén, jopofa dolgokat lehet vele csinálni... :B

(#418) balint0224


balint0224
csendes tag

Sziasztok!

Egy programmra lenne szükségem. Bármi lehet, a lényeg , h ne legyen se túl bonyolult, se túl egyszerű. És persze rendesen működjön. :D
Ha valaki tud ilyet, és segítene nekem, kérem küldjön egyet a balint0224@freemail.hu címre. Előre is köszönöm.

(#419) sekli


sekli
addikt

Hogy tudom kiolvasni a monitor vízszintes és függőleges pixeleinek a számát? (felbontást)

(#420) sekli válasza sekli (#419) üzenetére


sekli
addikt

up!

(#421) matekmatika válasza sekli (#420) üzenetére


matekmatika
tag

Fogalmam sincs, de minek azt számolni? Ha nem tévedek nagyot, akkor ezek fixen szabványban rögzítettek.

(#422) sekli válasza matekmatika (#421) üzenetére


sekli
addikt

persze, 1024x768, 1280x1024, de meg akarom tudni, hogy melyiket használja éppen...

(#423) matekmatika válasza sekli (#422) üzenetére


matekmatika
tag

Ha visualbasicben kell (miért ne abban kellene, ha ideírtad), akkor nézd meg ezt:
[link]
Ebből el lehet indulni.

(#424) sekli válasza matekmatika (#423) üzenetére


sekli
addikt

kössz, ebből megtalálom...

Akkor van még egy kérdésem, sokat kerestem de nem találtam Visual Studio 2005-ben működőt. Hogy kell a pillanatnyi hangerőt megállapítani mondjuk a max hangerő százalékában? Magyarán egy olyat szeretnék mint ami a Hi-Fi elején van LED-ekből...

(#425) matekmatika


matekmatika
tag

Lehet hüleséget kérdezek most, de VB-ben van relatív hivatkozás? Konkrétabban, egy CD-re felrakom a dolgokat és az erről megnyitott munkafüzet egy másik munkafüzetből olvasna be adatokat. A gond az, hogy az optikai meghajtó betűjele gépenként változhat, vagyis nem adhatom meg neki, hogy nyissa meg a D:\akármi.xls-t mert nem biztos hogy D lesz betűjele a meghajtónak.

(#426) matekmatika válasza sekli (#424) üzenetére


matekmatika
tag

[link] Szerintem ez kell neked. Csak valahogy százalékosítanod kell.

(#427) matekmatika válasza matekmatika (#425) üzenetére


matekmatika
tag

valaki?

(#428) matekmatika válasza matekmatika (#425) üzenetére


matekmatika
tag

bővebben? :)

(#429) matekmatika válasza matekmatika (#425) üzenetére


matekmatika
tag

Na jó, egy kis segítség :D , mivel az a munkafüzet is a CD-n van ugyanabban a mappában ezért úgy is megoldható lenne, ha valahogy valamivel kideríteném az aktív munkafüzet elérési útvonalát, hiszen ez ugyanaz mint a megnyitásra váróé, csak a fájl neve más.

(#430) matekmatika válasza matekmatika (#429) üzenetére


matekmatika
tag

Hát így kénytelen leszek én kitalálni :) .
:F
Na jó:
Private Sub CommandButton1_Click()

'megnyitandó fájl elérési útvonala a CD-n
mappanev = ''mappa1\mappa2\''

'megnyitandó fájl neve
fajlnev = ''akarmi.xls''

utvonal = ActiveWorkbook.Path
utvonal = Mid(utvonal, 1, 3)
megnyit = utvonal & mappanev & fajlnev

Workbooks.Open (megnyit)

End Sub


Így akkor is jó, ha nem ugyanabban a mappában van a két munkafüzet.

[Szerkesztve]

(#431) sekli válasza matekmatika (#426) üzenetére


sekli
addikt

de ez sajnos C#...

(#432) sekli


sekli
addikt

szóval még mindig ez kellene...: [link]

(#433) sekli válasza sekli (#432) üzenetére


sekli
addikt

up!

(#434) sonar válasza matekmatika (#425) üzenetére


sonar
addikt

miért ne lehetne. Bár nem igazán értem mit akarsz.
\akármi.xls ha így kezded \ jellel akkor a cd meghajtó gyökerétől indulsz és címezhetsz

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

(#435) sekli válasza sekli (#424) üzenetére


sekli
addikt

up!

(#436) matekmatika


matekmatika
tag

Hogyan tudom megvizsgálni a változóba írt éték az szám-e, azaz numerikus-e. Nem kérdeznék ilyen egyszerűnek tűnő dolgot, de már két napja kínlódok vele. Egy csomó példát találtam a neten, próbálgattam, de egyik sem működik. Makrorögzítővel ha készítek egy egyszerű példát:
Sub Rögzítés1()
'
' Rögzítés1 Makro
' Rögzítette: karbantartás, dátum: 2006.05.12.
'
' Billentyűparancs: Ctrl+m
'
Range(''C8'').Select
ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
End Sub

Ez még a Ctrl+m-mel működik is.Sőt parancsgomb alá berakva is.
Private Sub CommandButton1_Click()
Range(''C8'').Select
ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
End Sub

De amint elkezdem átalakítani az igényeimnek megfelelően, már kiakad.
Private Sub CommandButton1_Click()
szam = InputBox(''Add meg a számot'', ''Szám megadása'', '''', 5000, 1000)
If IsNumber(szam) Then
MsgBox (''ez egy szám'')
Else
MsgBox (''ez nem szám'')
End If
End Sub


Üzenet: Compile error:Sub or Function not defined
Nem értem mi lehet a hiba, próbélkoztam hasonlóan az IsNumeric függvénnyel is, de ugyanez. Segítsetek légyszíves, köszi.

(#437) Jester01 válasza matekmatika (#436) üzenetére


Jester01
veterán

Kevered az excel munkalap függvényeket a vb függvényekkel. Mindazonáltal az IsNumeric-nek elvileg mennie kellene :F

Jester

(#438) -Gábor- válasza matekmatika (#436) üzenetére


-Gábor-
csendes tag

Hiányzik a deklaráció:

Dim szam as string

[Szerkesztve]

(#439) [HUN]Zolee válasza -Gábor- (#438) üzenetére


[HUN]Zolee
senior tag

Exelbe nem kötelező deklarálni a változókat

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#440) -Gábor- válasza [HUN]Zolee (#439) üzenetére


-Gábor-
csendes tag

Jah, hogy itt most Excelről van szó... :) Azt hittem, hogy az Excel-es makrót szeretné átalakítani úgy, hogy fusson egy VB formon.

(#441) matekmatika válasza Jester01 (#437) üzenetére


matekmatika
tag

Az IsNumber-t ötletét a makrorögzítő adta, nekem fogalmam sem volt, hogy van ilyen (nekem magyar Office lévén SZÁM szerepelt a munkalap függvényében) Ergo: olyan nagyon rosszat nem írhattam. Az IsNumeric-et már a neten találtam, több helyen is, több példát, de nem jók. (Lehet Visual Basic.Net kell hozzá? :F ) Nem tudom.

(#442) [HUN]Zolee válasza -Gábor- (#440) üzenetére


[HUN]Zolee
senior tag

Vagyis remélem hogy Excelről van szó, ha nem akkor télleg kell a deklaráció :)
de amúgy a fordítónak nem a változóval van a baja, hanem a függvénnyel.
Ha viszont VB-be akarja ezt írni, akkor hibás a függvénymeghívás, pontosítani kellene.

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#443) [HUN]Zolee válasza matekmatika (#441) üzenetére


[HUN]Zolee
senior tag

mingyárt megnézem neked ezt a fügvényt :)
vagyis amint megjöttem este a melóból

[Szerkesztve]

''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/

(#444) matekmatika válasza [HUN]Zolee (#442) üzenetére


matekmatika
tag

Teljesen mindegy neki a deklaráció, vele és nélküle sem működik. :) Excelben egy beviteli mezőbe beírt értéket kellene megvizsgálnom, hogy az numerikus érték vagy nem. A vizsgálat egy parancsgomb megnyomására indulna, ez alá írom...írnám a kódot. Hogyan hívjam akkor meg a függvényt, hogy megegye?

(#445) lapa válasza matekmatika (#444) üzenetére


lapa
veterán

if isnumeric(szam) then

de ha az excel makrós totyikba írod látom...

(#446) matekmatika válasza lapa (#445) üzenetére


matekmatika
tag

Köszi, működik. (pedig meg voltam győződve hogy már így is próbáltam, de ezek szerint mégse...) :R

(#447) lapa válasza matekmatika (#444) üzenetére


lapa
veterán

pláne már #437-ben megoldódott...

amúgy érdekes, mert application.worksheetfunction.isnumber(szam) nem ment pedig kéne neki sztem.

[Szerkesztve]

(#448) sekli


sekli
addikt

erre valaki? :U

(#449) QuarK válasza sekli (#448) üzenetére


QuarK
senior tag

Te adod ki a hangot? Magyarán, a Te programod küldi a hangkártyának a hangadatokat?

(#450) sekli válasza QuarK (#449) üzenetére


sekli
addikt

nem, hanem mondjuk a winamp...

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic
Copyright © 2000-2024 PROHARDVER Informatikai Kft.