Newsgroup: it.comp.lang.visual-basic
Titolo: [UnOfficial MITTING] - 16 Giugno 2007, a Verona - Conferme

Alura...
A) Pal non dare i numeri.
    Se vuoi passare domani sera fallo pure.
    Ma non troverai nulla riguardante VB.
    Per Javina non ci sono problemi.
    Preparo uno spiedone :)
B) Potrei avere una idea di chi pensa di passare?
    Il 16 GIUGNO 2007 :P
    Magari rispondendo in questa discussione.
Ciao ciao a tutti.
-> GbC
www.gbcweb.com
www.chiappori.com

Dimenticavo...
A pranzo, non a cena.
-> GbC
www.gbcweb.com
www.chiappori.com

Do la conferma. Dovrei esserci io e, forse, la mia dolce metà.
Nicola
PS Rinnovo la richiesta a chi parte da Milano per un possibile passaggio 
in auto (naturalmente contribuirò alle spese) ^_^
Altrimenti proverò con il treno, ma dovrete venire a prendermi in stazione.

 A) Pal non dare i numeri.
una parola. mi stanno rimbecillendo anche piu' di quanto faccia l'eta',
che non e' poco, come vedi.
grazie caro, anche dell'invito per domani, ma con sto caldone mi muovo
meno che posso. al 16 giugno.
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 meno che posso. al 16 giugno.
bau bau
-> GbC
www.gbcweb.com
www.chiappori.com

 Alura...
Ehm certo che se non fai un drin via email uno come me che segue 
saltuariamente com fa a partecipare? ;) 

 saltuariamente com fa a partecipare? ;)
In effetti, se non ti volevano dovevano esserlo sicuri con un giro di mail a 
tutti tranne che a te :P
Ciao 

 a tutti tranne che a te :P
Ci sono riusciti... il 23 sono invita ad un matrimonio di un caro amico! ;-)
Alla prossima! :(

Newsgroup: it.comp.lang.visual-basic
Titolo: DEFAUL PRINTER

COME POSSO IN VB6 INTERCETTARE IL NOME DELLA DEFAULT PRINTER DI WINDOWS
API?

 API?
Sě, prova questa (da API-Guide):
Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_USED = VK_SCROLL
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long)
As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes
Private Sub Form_Load()
'KPD-Team 1999
'URL: 
http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
'Get the current keyboardstate
GetKeyboardState kbOld
'Hide the form
Me.Hide
MsgBox "Keep your eyes on the keyboard."
TurnOff VK_CAPITAL
Unload Me
End Sub
Private Sub TurnOff(vkKey As Long)
'Get the keyboard state
GetKeyboardState kbArray
'change a key
kbArray.kbByte(vkKey) = 0
'set the keyboard state
SetKeyboardState kbArray
End Sub
Private Sub Form_Unload(Cancel As Integer)
'restore the old keyboard state
'SetKeyboardState kbOld    'Questa l'ho commentata io. Forse si puň capire
il perchč...
End Sub

 ha scritto nel messaggio
news:be16p3$3md2$1...@ID-174464.news.dfncis.de...


 questo?
Mi sembra che tu l'abbia già fatto.
Ma a me non ha funzionato. Davvero.
Lupo.na.da.pagliaccetto

'