-
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 Tabletek, E-bookok Nyomtatók, szkennerek 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
-
Gh0sT
addikt
Sikerült kiolvasnom az adatbázisból a lekérdezés fejléceit, de adatokat valamiért nem tudok.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connection1 As New System.Data.SqlClient.SqlConnection(''Data Source=kisg\sqlexpress; Initial Catalog=Babel;Integrated Security=SSPI;'')
Dim Command1 As New System.Data.SqlClient.SqlCommand(''Select * from UKM'', Connection1)
Connection1.Open()
Dim Reader1 As System.Data.SqlClient.SqlDataReader = Command1.ExecuteReader()
Dim Table As DataTable = Reader1.GetSchemaTable()
Dim index As Integer
For index = 0 To Table.Rows.Count - 1
TextBox1.Text &= Reader1.GetName(index) & ControlChars.Tab
Next
Egészen eddig működik is, a TextBoxban megjelennek a tábla fejlécei
'For index = 0 To Table.Rows.Count - 1
'TextBox1.Text &= Reader1.GetString(index) & ControlChars.Tab
'Next
End Sub
Gondolom itt lehet valami hiba, mert úgy viselkedik, mintha nem lenne találat. Pedig fel van töltve adatokkal. Ezek szerint nem a GetStringgel kellene adatokat kinyernem a táblából?Megoldottam...
While (Reader1.Read())
TextBox1.Text &= Reader1(0)
End While
Jól elvagyok itt magamban.
-
Gh0sT
addikt
Sikerült kiolvasnom az adatbázisból a lekérdezés fejléceit, de adatokat valamiért nem tudok.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connection1 As New System.Data.SqlClient.SqlConnection(''Data Source=kisg\sqlexpress; Initial Catalog=Babel;Integrated Security=SSPI;'')
Dim Command1 As New System.Data.SqlClient.SqlCommand(''Select * from UKM'', Connection1)
Connection1.Open()
Dim Reader1 As System.Data.SqlClient.SqlDataReader = Command1.ExecuteReader()
Dim Table As DataTable = Reader1.GetSchemaTable()
Dim index As Integer
For index = 0 To Table.Rows.Count - 1
TextBox1.Text &= Reader1.GetName(index) & ControlChars.Tab
Next
Egészen eddig működik is, a TextBoxban megjelennek a tábla fejlécei
'For index = 0 To Table.Rows.Count - 1
'TextBox1.Text &= Reader1.GetString(index) & ControlChars.Tab
'Next
End Sub
Gondolom itt lehet valami hiba, mert úgy viselkedik, mintha nem lenne találat. Pedig fel van töltve adatokkal. Ezek szerint nem a GetStringgel kellene adatokat kinyernem a táblából? -
Gh0sT
addikt
-
Gh0sT
addikt
Jól érzékelem előző posztjaid alapján, hogy a VB.NET-et bűvölöd? (System.Threading és hasonlók) Mert akkor az ADO.NET-tel lehet.
Dim conn As New SqlConnection(...)
...
Dim cmd As New SqlCommand(''SELECT TOP 1 Jelszó FROM júzertábla WHERE Név=@userName'', conn)
cmd.Parameters.Add(''@userName'', TextBox1.Text)
' vagy .NET 2.0-ban
' cmd.Parameters.AddWithValue(''@userName'', TextBox1.Text)
Dim rdr As SqlDataReader = cmd.ExecuteReader()
Dim pwd As String
If rdr.Read() Then
pwd = rdr(0)
Else
' nincs ilyen júzer
End If
rdr.Close()
' ha kell
' conn.Close()
Az adatok titkosítására meg azt tudom mondani, hogy ha egyirányú hash-sel tárolod a jelszót, akkor nem szükséges se a jelszó, se a szerverrel kommunikáció titkosítása, csak az okozhat gondot, ha valaki nem csak lehallgatni tudja a kábelt, de bele is tud piszkálni.
[Szerkesztve]
[Szerkesztve]Error 1 Type 'SqlConnection' is not defined.

-
Gregorius
őstag
Újabb probléma:
Szeretnék login formot használni, de nem tudom hogyan kell.
Alapprobléma: kb. 40-50 usert kellene kiszolgálni, mindenkinek külön felhasználónév, jelszó, jogosultsági szint.
A következőt gondoltam: a userek adatait eltárolnám egy adatbázisban.
ID
Név
Jelszó
Jogosultság
Többi adat
A login formra felteszek egy TextBoxot (TextBox1), amibe beüti a felhasználónevét, valamint egy másik Password (TextBox2) boxot is. Emellett lerejtek két másik mezőt is, amikhez nincs hozzáférése és nem is látszanak (TextBox3, TexTBox4).
Amikor a felhasználó beüti a TextBox1-be a felhasználónevét, valamint a TextBox2-be a jelszavát és az OK gombra klikkel, akkor egy paraméterezett lekérdezést futtatnék, ahol a paraméter a felhasználónév lenne. Ha van találat az adatbázisban (vagyis van ilyen felhasználó), akkor ugye a TextBox3-ba beolvasom az adatbázisból a felhasználónevet, valamint a TextBox4-be az adatbázisban tárolt jelszót. Ezután már nincs más dolgom, mint összevetni a begépelt és a beolvasott jelszavakat.
Ezt így meg is csináltam és működik is. Valszeg biztonsági szempontból szart sem ér, de tökre örülök neki.
Két kérdés:
1. Lehet ezt valahogyan elegánsabban csinálni? Mondjuk a TextBox3 és TextBox 4 kiküszöbölésével? Gondoltam, hogy beolvasom egy változóba egyből az adatokat, de béna módon csak vezérlőkre és azok értékeire tudok hivatkozni. Szóval valahogyan direktbe el lehet érni az adatbázist (MS SQL szerver)?
2. Szükséges az adatok titkosítása? Jelenleg az adatbázisban nincsenek titkosítva a jelszavak, mert minek. Mondjuk nem is tudom, hogy ezt hogyan lehetne, egyáltalán ott célszerű őket tárolni? Úgy kellene megoldanom, hogy azért tudják változtatni, tehát érdemes lenne tárolni őket.Jól érzékelem előző posztjaid alapján, hogy a VB.NET-et bűvölöd? (System.Threading és hasonlók) Mert akkor az ADO.NET-tel lehet.
Dim conn As New SqlConnection(...)
...
Dim cmd As New SqlCommand(''SELECT TOP 1 Jelszó FROM júzertábla WHERE Név=@userName'', conn)
cmd.Parameters.Add(''@userName'', TextBox1.Text)
' vagy .NET 2.0-ban
' cmd.Parameters.AddWithValue(''@userName'', TextBox1.Text)
Dim rdr As SqlDataReader = cmd.ExecuteReader()
Dim pwd As String
If rdr.Read() Then
pwd = rdr(0)
Else
' nincs ilyen júzer
End If
rdr.Close()
' ha kell
' conn.Close()
Az adatok titkosítására meg azt tudom mondani, hogy ha egyirányú hash-sel tárolod a jelszót, akkor nem szükséges se a jelszó, se a szerverrel kommunikáció titkosítása, csak az okozhat gondot, ha valaki nem csak lehallgatni tudja a kábelt, de bele is tud piszkálni.
[Szerkesztve]
[Szerkesztve] -
Gh0sT
addikt
Újabb probléma:
Szeretnék login formot használni, de nem tudom hogyan kell.
Alapprobléma: kb. 40-50 usert kellene kiszolgálni, mindenkinek külön felhasználónév, jelszó, jogosultsági szint.
A következőt gondoltam: a userek adatait eltárolnám egy adatbázisban.
ID
Név
Jelszó
Jogosultság
Többi adat
A login formra felteszek egy TextBoxot (TextBox1), amibe beüti a felhasználónevét, valamint egy másik Password (TextBox2) boxot is. Emellett lerejtek két másik mezőt is, amikhez nincs hozzáférése és nem is látszanak (TextBox3, TexTBox4).
Amikor a felhasználó beüti a TextBox1-be a felhasználónevét, valamint a TextBox2-be a jelszavát és az OK gombra klikkel, akkor egy paraméterezett lekérdezést futtatnék, ahol a paraméter a felhasználónév lenne. Ha van találat az adatbázisban (vagyis van ilyen felhasználó), akkor ugye a TextBox3-ba beolvasom az adatbázisból a felhasználónevet, valamint a TextBox4-be az adatbázisban tárolt jelszót. Ezután már nincs más dolgom, mint összevetni a begépelt és a beolvasott jelszavakat.
Ezt így meg is csináltam és működik is. Valszeg biztonsági szempontból szart sem ér, de tökre örülök neki.
Két kérdés:
1. Lehet ezt valahogyan elegánsabban csinálni? Mondjuk a TextBox3 és TextBox 4 kiküszöbölésével? Gondoltam, hogy beolvasom egy változóba egyből az adatokat, de béna módon csak vezérlőkre és azok értékeire tudok hivatkozni. Szóval valahogyan direktbe el lehet érni az adatbázist (MS SQL szerver)?
2. Szükséges az adatok titkosítása? Jelenleg az adatbázisban nincsenek titkosítva a jelszavak, mert minek. Mondjuk nem is tudom, hogy ezt hogyan lehetne, egyáltalán ott célszerű őket tárolni? Úgy kellene megoldanom, hogy azért tudják változtatni, tehát érdemes lenne tárolni őket. -
sonar
addikt
A megoldás:
hátha jól jön még vkinek
Environ(''systemroot'') -
sonar
addikt
Egy olyan problémám van,hogy nem tudom, hogy a környezeti változókkal hogyan tudok dolgozni?
Ez így jó
Shell ''d:\windows\system32\command.com''
De ha így adom meg akkor nem müxik
Shell ''%systemroot%\system32\command.com''
Vki tudna segíteni
-
[HUN]Zolee
őstag
Probléma:
Adott egy combobox, aminek az alábbi elemei vannak:
elmúlt egy hét
elmúlt egy hónap
elmúlt negyedév
elmúlt félév
elmúlt év
Ezen kívül manuálisan is lehet beírni dátum értéket. Megoldható valahogyan az, hogy mondjuk dupla klikkre megjelenjen a naptár, amin ki lehetne választani az időpontot? Sokkal elegánsabb lenne, mint ez a manuális bevitel.egy megoldás : teszel fel egy MonthCalendar-t , elrejted, majd ha cbox-ba az pl.''egyéb''-re kattintanak, akkor megjelenteted, majd ott ki tudja válsztani a szükséges dárumot, majd a SelectionEnd tulajdonságot hozzáadod a cbox-hoz.
-
Gh0sT
addikt
Probléma:
Adott egy combobox, aminek az alábbi elemei vannak:
elmúlt egy hét
elmúlt egy hónap
elmúlt negyedév
elmúlt félév
elmúlt év
Ezen kívül manuálisan is lehet beírni dátum értéket. Megoldható valahogyan az, hogy mondjuk dupla klikkre megjelenjen a naptár, amin ki lehetne választani az időpontot? Sokkal elegánsabb lenne, mint ez a manuális bevitel. -
Gh0sT
addikt
-
Gh0sT
addikt
Öööö, hogyan kell olyan változót deklarálni, amit több formon is el tudok érni?
Leginkább a hol kérdésre keresem a választ. Gondolom nem a Form Class-on belül. -
[HUN]Zolee
őstag
6 ba vagy 7 be? mert nagyon megkavarták. gondolod te is jöhetsz msn-re

-
sekli
addikt
én a 2003 at használom. másnéven a 7.0 ás. talán össze lehet hozni az objektumokat, de annyira nemismerem a programot
nem érdekes, akkor hanyagolom azt a programot, viszont most az kéne, hogy hogy lehet elmenteni mondjuk .txt-be adatokat, és onnan kiolvasni? pl: konkrétan button1.text legyen a txt első sorában lévő button1.text= utáni rész.
-
[HUN]Zolee
őstag
én a 2003 at használom. másnéven a 7.0 ás. talán össze lehet hozni az objektumokat, de annyira nemismerem a programot
-
sekli
addikt
ez azért van , mert a 6.0 megírásakor még nemvotl XP (szerintem) , és ezért minden objektuma az akkori win-nek felel meg, ha átrajzolod, az objektumokat akkor lesz csak XP-s.
tudom, hogy azért van, de azt hittem, hogy van valami egyszerű módja a ''csinosításnak'', mert én többek között ezért is favorizálom a 2005-öt... (bár az ez a .NET FX es dolog elég gáz...)
-
[HUN]Zolee
őstag
-
sekli
addikt
na ezt nemértem pontosan mitszeretnél

miben tér el a megírta alkalmazás skinje a win skinjétől?hát nekem 98 style csak az ablak felső része és az X gomb XP-s...
-
[HUN]Zolee
őstag
-
sekli
addikt
sose használtam 2005 öt

és a 6-ra hogy lehet XP-skint ''varázsolni''?
-
[HUN]Zolee
őstag
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba?ha gondolod keress meg majd msn-en. ott gyorsabb.

-
[HUN]Zolee
őstag
Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba?Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5
Me.Refresh()
Next
így jó lesz
kifelejtetted a form frissítést.
[Szerkesztve]
[Szerkesztve] -
Gh0sT
addikt
nincsmit.

Hi!
Tegnap még próbálkoztam, de nem mentem sokra az ablak megjelenítéssel. Működik, de valamiért feketéből kezd el megjelenni az ablak és nyeri el az eredeti színét.
A következőt csináltam:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
System.Threading.Thread.Sleep(5)
Next
Próbáltam megváltoztatni a lépésközt nagyobbra, de semmi eredmény.
Aztán próbaképp csináltam egy ilyet:
Dim n As Integer
For n = 1 to 100
Me.Opacity = n/100
MsgBox(n)
Next
Itt ugye mindig feldobta n értékét egy ablakban, de látszólag nem feketéről indult a megjelenés. Minden OK volt, csak az MsgBox-okra nem lett volna szükségem. Hol lehet a hiba? -
[HUN]Zolee
őstag
-
sekli
addikt
-
[HUN]Zolee
őstag
-
Gh0sT
addikt
Opacity az egy 0 és 1 közé eső szám.
Me.Opacity = n/100
a példád szerint
[Szerkesztve]Igen, közben megtaláltam neten. Azért köszönöm!

-
[HUN]Zolee
őstag
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni?Opacity az egy 0 és 1 közé eső szám.
Me.Opacity = n/100
a példád szerint
[Szerkesztve] -
Gh0sT
addikt
-
shev7
veterán
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni?csak egy otlet: a sleepnek adjal parametert.
-
Gh0sT
addikt
várakozást a System.Threading.Thread.Sleep() utasítással tudsz beletenni ezredmásodpercben
Ok, működik, köszi! Csak nem tudom arra használni, amire szerettem volna.
A login Formnál szeretném megcsinálni azt, hogy kb 2 mp alatt jelenjen meg. Gondoltam, hogy ha a form.opacity tulajdonságára írok egy for/next ciklust, akkor sima ügy lesz. Persze nem működik, de miért?
Dim n As Integer
For n = 1 to 100
Me.Opacity = n
System.Threading.Thread.Sleep()
Me.Refresh()
Next
Futási időben nem tudom az Opacity tulajdunságot változtatni? -
[HUN]Zolee
őstag
-
Gh0sT
addikt
Hogyan tudok úgy for next ciklust futtatni, hogy a ciklus futási ideje pontosan 2 mp legyen? Gondolom valami késleltetés kellene bele, de micsoda?
-
Gh0sT
addikt
írd be a form_load ba hogy Randomize() . és akkor elvileg már mindíg más számot kell adnia.
Ehh, hát ez elég egyszerű volt...
Köszi! -
[HUN]Zolee
őstag
Valaki meg tudná mondani, hogy az Rnd() függvény miért mindig ugyanazt az értéket adja vissza?

Egy parancsgombhoz rendeltem hozzá az Rnd()*100+1 függvényt, ami mondjuk elsőre 75-öt ad eredményül. Ezután újra klikkelek és mondjuk 18-at kapok, majd a következőre 37-et.
Kilépés és újraindítás után ismét 78, 18, 37 lesz a sorrend. De miért???írd be a form_load ba hogy Randomize() . és akkor elvileg már mindíg más számot kell adnia.
-
Gh0sT
addikt
Valaki meg tudná mondani, hogy az Rnd() függvény miért mindig ugyanazt az értéket adja vissza?

Egy parancsgombhoz rendeltem hozzá az Rnd()*100+1 függvényt, ami mondjuk elsőre 75-öt ad eredményül. Ezután újra klikkelek és mondjuk 18-at kapok, majd a következőre 37-et.
Kilépés és újraindítás után ismét 78, 18, 37 lesz a sorrend. De miért??? -
szabi244
csendes tag
Sziasztok!
egy string változóba szeretnék egy hivatkozást elhelyezni egy weblap címre.
(bla-bla bla-bla bla www.valami.hu bla bla bla)
Nem tudom, hogy hogyan kell....
Azért kellene, hogy utána el tudjam küldeni a stringet egy E-mailbe.(de az a rész már megy.)
Szabolcs -
Panther
HÁZIGAZDA
Lenne egy problémám, amit szeretnék elegánsabban megoldani:
Adott a formon egy adatrács, amiben mondjuk a következő oszlopok vannak:
Azonosító, Név, Életkor
Szeretném megcsinálni azt, hogy ha mondjuk ráállok a harmadik rekodra és dupla klikket nyomok rajta, akkor előugrana egy másik form amin az adott azonosítóhoz tartozó többi adat lenne.
Sikerült megoldanom, de elég bénán. Jelenleg használok egy segéd TextBox-ot, aminek a Text tulajdonságához hozzárendeltem az adatrács aktuális kijelölésének azonosítóját. Magyarán ha ráállok valamelyik rekordra, akkor egy Textboxban az adatrács mellett megjelenik az azonosító és erre hiavtkozva egy paraméteres lekérdezéssel már meg tudom nyitni a kívánt formot.
Jó lenne, ha a Textboxot ki tudnám valahogyan kerülni, csak lövésen nincs, hogy az adatrács egy mezőjének értékére hogyan tudok kódból hivatkozni. Valamiért nem találok value tulajdonságot az adatrács mezőiben. Valakinek van ötlete?A DataGrid-ben egy cellában levő szöveget a Text attribútummal tudod beállítani / kiolvasni. Előtte persze rá kell állni az adott cellára, mégpedig a Row és Col attribútumokkal. Ha a sort már kijelölte a user azzal hogy valahova belekattintott, akkor a Col értékét állítsd mondjuk 2-re (ha minden sor 2. oszlopában van a számodra érdekes adat), és utána olvasd ki a Text-et. (Az átállítás előtt esetleg mentsd el egy változóba a Col értékét, és miután megtudtad amire kíváncsi voltál, állítsd vissza.)
Amúgy továbbra is javaslom, hogy vedd a kezedbe az irányítást, te töltsd fel a DataGrid-et is adatokkal, és akkor a kattintás után a Row-ot lekérdezve máris tudni fogod, hogy mi van az adott sorban.
Na meg persze feltöltheted egyúttal akkor már a Combobox-okat is úgy, ahogy neked tetszik, ott is tudni fogod mindig hogy mi van kijelölve, stb...
[Szerkesztve] -
Gh0sT
addikt
Lenne egy problémám, amit szeretnék elegánsabban megoldani:
Adott a formon egy adatrács, amiben mondjuk a következő oszlopok vannak:
Azonosító, Név, Életkor
Szeretném megcsinálni azt, hogy ha mondjuk ráállok a harmadik rekodra és dupla klikket nyomok rajta, akkor előugrana egy másik form amin az adott azonosítóhoz tartozó többi adat lenne.
Sikerült megoldanom, de elég bénán. Jelenleg használok egy segéd TextBox-ot, aminek a Text tulajdonságához hozzárendeltem az adatrács aktuális kijelölésének azonosítóját. Magyarán ha ráállok valamelyik rekordra, akkor egy Textboxban az adatrács mellett megjelenik az azonosító és erre hiavtkozva egy paraméteres lekérdezéssel már meg tudom nyitni a kívánt formot.
Jó lenne, ha a Textboxot ki tudnám valahogyan kerülni, csak lövésen nincs, hogy az adatrács egy mezőjének értékére hogyan tudok kódból hivatkozni. Valamiért nem találok value tulajdonságot az adatrács mezőiben. Valakinek van ötlete? -
sekli
addikt
#462? Az elvileg utánam lesz még kettővel
Vagy a jövőbe látsz? 
vagy kapkodok...
#452... -
matekmatika
tag
-
sekli
addikt
egy kis UP! a #462-nek...
-
sekli
addikt
Na fane, most kellett a faterom gépére Net framework, gondoltam, felrakom a 2.0-t, mert az van, de az nem jo, mert 1.1-kell a Norton Ghost-nak...

-
sekli
addikt
hmm, pedíg akkor szokott ilyet dobálni.
Sajnos nem mindegy neki hogy melyik van fent az 1.1 vagy a 2.0 . mivel olvastam valahol hogy nem teljesen kompatibilis visszafelétudom, elég egy barom dolog ez...

van valami patch asszem, az kell a SAMI-hoz is... -
[HUN]Zolee
őstag
-
sekli
addikt
.Net firmwork vagy mi a rák kell neki.
ja, framework, de volt fenn...
-
[HUN]Zolee
őstag
-
sekli
addikt
Az miért van, hogy csinálok ey programot, és másoknál, ahhol nincs VB, ott azt írja, hogy: ''Az alkalmazás inicializálása nem megfelelő (0xc0000135) Alkalmazás befelyezéséhez kattintson az OK gombra''??
-
sekli
addikt
kár...
,
de azért van egy újabb kérdésem:
hogy lehet az egér helyzetét lekérdezni akkor is, ha nem a form fölött van, és a kattintás eseményeket is számolni... Studio 2005 ben?, VB6-ban megírtam már régebben az egér helyzetének figyelését, de a 2005-ben nem megy a POINTAPI...
[Szerkesztve] -
QuarK
senior tag
Akkor ebben nem tudok segíteni; imho ugyanis nem fogod tudni elkapni a hangot, ha külsős program köpi a hangkimenetre... Bár... ugye van olyan, hogy sztereó keverő a bemeneteknél; ott bejelölve a pipát meg is van a hang; elméletileg tehát meg lehet oldani.
-
sekli
addikt
-
QuarK
senior tag
-
sekli
addikt
erre valaki?

-
lapa
veterán
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?pláne már #437-ben megoldódott...
amúgy érdekes, mert application.worksheetfunction.isnumber(szam) nem ment pedig kéne neki sztem.
[Szerkesztve] -
matekmatika
tag
-
lapa
veterán
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?if isnumeric(szam) then
de ha az excel makrós totyikba írod látom... -
matekmatika
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.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? -
[HUN]Zolee
őstag
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á?
) Nem tudom.mingyárt megnézem neked ezt a fügvényt

vagyis amint megjöttem este a melóból
[Szerkesztve] -
[HUN]Zolee
őstag
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. -
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á?
) Nem tudom. -
-Gábor-
csendes tag
Exelbe nem kötelező deklarálni a változókat
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. -
[HUN]Zolee
őstag
-
-Gábor-
csendes 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.Hiányzik a deklaráció:
Dim szam as string
[Szerkesztve] -
Jester01
veterán
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.Kevered az excel munkalap függvényeket a vb függvényekkel. Mindazonáltal az IsNumeric-nek elvileg mennie kellene

-
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. -
sekli
addikt
-
sonar
addikt
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.
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 -
sekli
addikt
-
sekli
addikt
-
matekmatika
tag
Na jó, egy kis segítség
, 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.Hát így kénytelen leszek én kitalálni
.
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] -
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.
Na jó, egy kis segítség
, 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. -
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.
bővebben?

-
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.
valaki?
-
matekmatika
tag
[link] Szerintem ez kell neked. Csak valahogy százalékosítanod kell.
-
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.
-
sekli
addikt
Ha visualbasicben kell (miért ne abban kellene, ha ideírtad), akkor nézd meg ezt:
[link]
Ebből el lehet indulni.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... -
matekmatika
tag
-
sekli
addikt
Fogalmam sincs, de minek azt számolni? Ha nem tévedek nagyot, akkor ezek fixen szabványban rögzítettek.
persze, 1024x768, 1280x1024, de meg akarom tudni, hogy melyiket használja éppen...
-
matekmatika
tag
-
sekli
addikt
-
sekli
addikt
Hogy tudom kiolvasni a monitor vízszintes és függőleges pixeleinek a számát? (felbontást)
-
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.
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. -
sekli
addikt
És ez mire is jó?
Vagyis azt éretm mit csinál, de mire is jó ez?Hát sok haszna nincs, de poén, jopofa dolgokat lehet vele csinálni...

-
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 -
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''
-
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 -
matekmatika
tag
-
Jester01
veterán
-
sekli
addikt
-
Jester01
veterán
Na egy nagyon béna kérdés jön
, 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...?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.
-
sekli
addikt
-
sekli
addikt
Na egy nagyon béna kérdés jön
, 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...? -
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)
-
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()' -
matekmatika
tag
-
szasza_1
senior tag
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!Ha már erre jártok, akkor már nekem is segíthetnétek.

-
lapa
veterán
noigen, Bob fella megmondta a frankót

-
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] -
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.
Ú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 Tabletek, E-bookok Nyomtatók, szkennerek 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
- Apple Mac Mini M2 8/256GB eladó! Patika állapot, 12 hó garancia
- ASUS SimPro Dock 2 (90NX0460-P00030), bontatlanul, 1 év garival eladó!
- Apple iPhone 13 Pro Max 128GB eladó! 100% akku, megkímélt állapot, 12 hó garancia
- Apple iPhone 13 Pro Max 128GB eladó! 100% akku, megkímélt állapot, 12 hó gar
- Apple iPhone 13 Pro Max 128GB eladó! 100% akksi, szép állapot, 12 hó garancia
- BESZÁMÍTÁS! Gigabyte Aorus B560M i7 10700 32GB DDR4 1TB SSD RX 6600 XT 8GB ZALMAN i3 Edge EVGA 600W
- 27% - ASUS TUF Gaming VG28UQL1A Monitor! 3840x2160 / 1ms / 144Hz / G-Sync / FreeSync BeszámítOK!
- MacBook Pro 16" 2021, M1 Max , 64 GB RAM, 512GB SSD, Silver 27% Áfás (0460AB)
- Xiaomi 14 Ultra 512GB,Újszerű,Dobozaval,12 hónap garanciával
- Bomba ár! Lenovo X1 Carbon 2nd I i7-4G I 8GB I 256SSD I 14" FHD I Cam I W10 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest





?
, 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.
