HWSW Informatikai Kerekasztal: Visual Basic - HWSW Informatikai Kerekasztal

Ugrás a tartalomhoz

Mellékleteink: HUP | Gamekapocs

  • (4 Oldal)
  • +
  • 1
  • 2
  • 3
  • 4
  • Nem indíthatsz témát.
  • A téma zárva.

Visual Basic Értékeld a témát: -----

#41 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 03. 13. 20:05

Most kezdtem el ismerkedni visual basic-kel. A 6.0-át használom, mert sulihoz is elég ez. Elég jól haladok vele, tettszik ez a módszer, később biztosan kipróbálok más visual fejlesztőket is.
Felmerült bennem egy kérdés.
Olyan progit szeretnék létrehozni, ami adott billentyűkombinációra elrejti, majd megjeleníti az alkalmazást. Az elrejtés megy, de a megjelenítés már nem. Hogyan lehetne ezt megoldani?
Nagy hirtelenjében így indultam neki:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("x") Then Form1.Visible = False
If KeyAscii = Asc("y") Then Form1.Visible = True
End Sub

Form1.Hide és Form1.Show metódusokat ajánlották. Leírná valaki a szintaktikájukat erre a példára?

#42 Felhasználó inaktív   des 

  • Őstag
  • PipaPipaPipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 8.619
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 03:47

hi,

van nekem egy kis scriptem ami az iexplorert nyitja meg. hogyan tudnam megcsinalni (ha egyaltalan lehet, mert pl javascriptben ezt nem lehet(?) ahogy utannaneztem a dolognak. csak atmeretezni es mozgatni engedi. teljes ablakba nem rakja ki..:confused: tehat nem fullscreen kell nekem hanem maximized ie ablak. ) hogy maximalis ablakban nyiljon meg?

ez lenne a script:

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
With IE    

.TheaterMode=0
.top=130
.left=230
.menubar=1
.toolbar=1  
.statusBar=0
.navigate "about:blank"
.visible=1    
.resizable=1
.fullscreen=0

End With

valamit a windowstate-el (WindowState = 2) kellene csinalni de nemtom hova irni. :(

igy megtudom:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ".../iexplorer.exe", 3 // 3 = vbMaximizedFocus
de nekem ez a megoldas nem jo hiszen epp az a lenyeg hogy controlalt iexplorer ablakot nyissak meg.

Szerkesztette: des 2006. 03. 14. 03:49 -kor

A gépemről küldve billentyűzettel | Egy bringás blogja: http://deviantrider.co.nf

#43 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 10:40

Idézet: eMeM - Dátum: 2006. márc. 13., hétfő - 20:05

Olyan progit szeretnék létrehozni, ami adott billentyűkombinációra elrejti, majd megjeleníti az alkalmazást. Az elrejtés megy, de a megjelenítés már nem. Hogyan lehetne ezt megoldani?
Nagy hirtelenjében így indultam neki:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("x") Then Form1.Visible = False
If KeyAscii = Asc("y") Then Form1.Visible = True
End Sub

Form1.Hide és Form1.Show metódusokat ajánlották. Leírná valaki a szintaktikájukat erre a példára?

Az a baj, hogy onnantol kezdve, hogy eltunteted a formot (legyen az Visible = False vagy .Hide), alveszti a fokuszt, es nem kap meg semmilyen windows uzenetet - ergo, nem hivothat meg a Form_KeyPress event.
Szoval ez igy ilyen formaban nem fog soha mukodni.
Megoldas lenne egy kis windows API buheralas, de ezt kezdoknek nem ajanlom, mert meresz dolgokat lehet vele csinalni.
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#44 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 11:36

Idézet: des - Dátum: 2006. márc. 14., kedd - 3:47

[...]

Nagyon melyen nem astam bele magam, de ugy tunik, hogy nem lehet ilyet csinalni script-bol...
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#45 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 12:20

Idézet: Merlot - Dátum: 2006. márc. 14., kedd - 11:40

Az a baj, hogy onnantol kezdve, hogy eltunteted a formot (legyen az Visible = False vagy .Hide), alveszti a fokuszt, es nem kap meg semmilyen windows uzenetet - ergo, nem hivothat meg a Form_KeyPress event.
Szoval ez igy ilyen formaban nem fog soha mukodni.
Megoldas lenne egy kis windows API buheralas, de ezt kezdoknek nem ajanlom, mert meresz dolgokat lehet vele csinalni.

értem. és ha mondjuk opacityvel csinálnám meg. akkor mondjuk egérelvitelre teljesen elhlványulna, kattintásra meg előjönne. ekkor ha tom hogy hol van az asztalon a progi és oda kattintok, akkor működne nem?
bár mondjuk vb6-ban nem megy az opacity. hanyastól megy?

#46 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 12:52

Idézet: eMeM - Dátum: 2006. márc. 14., kedd - 12:20

értem. és ha mondjuk opacityvel csinálnám meg. akkor mondjuk egérelvitelre teljesen elhlványulna, kattintásra meg előjönne. ekkor ha tom hogy hol van az asztalon a progi és oda kattintok, akkor működne nem?
bár mondjuk vb6-ban nem megy az opacity. hanyastól megy?

VB6-ban nincs opacity (.NET-ben van)... amugy Windows API-val meg lehet csinalni :D win 2K/XP alatt ha jol tevedek.
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#47 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 13:20

Idézet: Merlot - Dátum: 2006. márc. 14., kedd - 13:52

...amugy Windows API-val meg lehet csinalni :D win 2K/XP alatt ha jol tevedek.

kifejtenéd?  :respect:

#48 Felhasználó inaktív   des 

  • Őstag
  • PipaPipaPipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 8.619
  • Csatlakozott: --

Elküldve: 2006. 03. 14. 20:21

Idézet: des - Dátum: 2006. Mar. 14., Tuesday - 3:47

...

en viszont magamnak valaszolok.  :cool:

a sendkey-el megcsinaltam, hogy nyitas utan nagyitsa ki az ablakot.. igaz nem olyan elegans mintha egybol teljesben nyitna meg de addig jo amig nem talalok jobb megoldast ra.  :cool:

mellesleg alig jottem ra, hogy a (SPACE) -hoz kihagyast kell hagyni.  :D
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%( )+(X)"
// alt+space+x
A gépemről küldve billentyűzettel | Egy bringás blogja: http://deviantrider.co.nf

#49 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 03. 16. 11:11

Idézet: des - Dátum: 2006. márc. 14., kedd - 20:21

en viszont magamnak valaszolok.  :cool:

a sendkey-el megcsinaltam, hogy nyitas utan nagyitsa ki az ablakot.. igaz nem olyan elegans mintha egybol teljesben nyitna meg de addig jo amig nem talalok jobb megoldast ra.  :cool:

mellesleg alig jottem ra, hogy a (SPACE) -hoz kihagyast kell hagyni.  :D
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%( )+(X)"
// alt+space+x

Hehe... ugyes! :up:
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#50 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 03. 16. 12:01

Idézet: eMeM - Dátum: 2006. márc. 14., kedd - 13:20

kifejtenéd?  :respect:

Nem szivesen... szeretnelek lebeszelni arrol, hogy kezdokent belemassz a Windows API-ba, mert csunya dolgokat csinalhatsz a gepeddel!
Azon kivul pedig sajat felelossegedre:

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    'Set the window style to 'Layered'
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    'Set the opacity of the layered window to 128
    SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
 
End Sub

A kodban levo komment-URL egy remek APIGuide nevu cuccot rejt... de elobb inkabb olyan kerdesekre kell megtanulni a valaszt, hogy mire jo a QueryUnload... peldaul...  ;)

Udv,
Merlot
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#51 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 03. 16. 23:21

Azt hiszem hogy inkább tényleg jobban elmélyülök a dologban. Köszi.

#52 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 05. 28. 13:26

Üdv! Van egy access táblám, és abban van 3 oszlop. Minden oszlopban számok. Külön külön szertném megkapni az oszlopok összegét. Hogyan nézne ez ki vb6-ban?

#53 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 06. 11. 16:48

akkor máshogy kérdem. hogyan érem el ciklusban egy field i-edik elemét?

#54 Felhasználó inaktív   Vikk29 

  • Újonc
  • Pipa
  • Csoport: Alkalmi fórumtag
  • Hozzászólások: 1
  • Csatlakozott: --

Elküldve: 2006. 06. 17. 14:13

Sziasztok!
Visual basic 6.0.-t szeretnék letölteni a netről valahonnan, ha lehetséges magyar változatot, de jó az angol is.Tudtok segíteni ilyen oldalban?

#55 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 06. 19. 09:40

Idézet: Vikk29 - Dátum: 2006. jún. 17., szombat - 15:13

Sziasztok!
Visual basic 6.0.-t szeretnék letölteni a netről valahonnan, ha lehetséges magyar változatot, de jó az angol is.Tudtok segíteni ilyen oldalban?

:smoker: Az nem ugy van az  :cool:
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#56 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 06. 24. 22:31

hogyan van a maradékos osztás vb6-ban?

#57 Felhasználó inaktív   FlowM@N 

  • Őstag
  • PipaPipaPipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 6.283
  • Csatlakozott: --

Elküldve: 2006. 06. 24. 23:03

Idézet: eMeM - Dátum: 2006. jún. 24., szombat - 23:31

hogyan van a maradékos osztás vb6-ban?

x mod y

De ez minden help-ben megtalálható. :D
| Eredeti Azonosító: 2419 | Hozzászólások: X+320 | Először Regisztrált: 2001. júl. 2. |
:::HWSW World Community-Team©:::    :::Windows Licencek:::    :::Windows Portal:::
If everything seems to be going well, you have obviously overlooked something.

#58 Felhasználó inaktív   eMeM 

  • Tag
  • PipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 344
  • Csatlakozott: --

Elküldve: 2006. 06. 25. 23:21

nincs fent a help :)

#59 Felhasználó inaktív   Merlot 

  • Törzsvendég
  • PipaPipaPipa
  • Csoport: Fórumtag
  • Hozzászólások: 868
  • Csatlakozott: --

Elküldve: 2006. 06. 26. 11:46

Idézet: eMeM - Dátum: 2006. jún. 26., hétfő - 0:21

nincs fent a help :)

Ez nem mentseg :)
Neted csak van http://msdn.microsoft.com/library/default....cLROverview.asp
(amugy elegge el van dugva... fooldalrol linkeket kovetve el sem lehet jutni ide...)
Enjoy!
'owz anyone out there meant to restecpa each otha, if you lot in'ere, don't even start restecpa-ing one anotha?
Blog

#60 Felhasználó inaktív   Mykkka 

  • Újonc
  • Pipa
  • Csoport: Alkalmi fórumtag
  • Hozzászólások: 2
  • Csatlakozott: --

Elküldve: 2006. 06. 28. 12:48

Üdv Mindenkinek!

Egy UserControl készítésén ügyködöm (lelkes amatőr szinten), amihez megvan a property és az event, de method-ot nem sikerült definiálom hozzá. Elárulná valaki, hogyan kell? M

Téma megosztása:


  • (4 Oldal)
  • +
  • 1
  • 2
  • 3
  • 4
  • Nem indíthatsz témát.
  • A téma zárva.

1 felhasználó olvassa ezt a témát.
0 felhasználó, 1 vendég, 0 anonim felhasználó