login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Visual Basic 6

Offline SvenP - 13/06/2005 21:50 (laatste wijziging 13/06/2005 21:50)
Avatar van SvenPPHP interesse aangezien C++ nog wel iets te ingewikkeld is, ben ik er weer even vanaf gestapt..
k ben sins kort weer begonnen met Visual Basic (was ik lang geleden ook al es mee besig dus basis gedoe ken ik wel)

nu is mijn vraag,
kan ik via het kruisje (X om verster af te sluiten) een script (function ofzow) in werking laten stellen?
zodat bijv. als je op X klikt, er een msgbox komt met are you sure you wat to quit.. zoiets..
kan dat?
ps. ik heb een half uur op google zitte zoeken (vast naar het verkeerde..)

18 antwoorden

Gesponsorde links
Offline MothZone - 13/06/2005 22:15 (laatste wijziging 13/06/2005 22:24)
Avatar van MothZone PHP ver gevorderde :s ik weet wel hoe je acties moet uitvoeren dan, maar weet niet hoe je het sluiten kan annuleren, probeer dit anders eens:

php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     If (MsgBox("Zeker?", vbOKCancel + vbInformation, "Sluiten") = vbOK) Then
  3.         Cancel = 0
  4.     Else
  5.         Cancel = 1
  6.     End If
  7. End Sub


edit: code aangepast, werkt nu (getest)
Offline smoos - 13/06/2005 22:44
Avatar van smoos PHP gevorderde in delphi is het
exit;
probeer dat eens (het is maar een gok om te proberen ik kan wel delphi maar geen VB)
Offline remcobers - 13/06/2005 23:08
Avatar van remcobers PHP expert www.vbfreakz.nl (sorry als dit verboden is).
Offline MothZone - 14/06/2005 07:30
Avatar van MothZone PHP ver gevorderde @smoos: jij bedoelt hoe je een venster kan sluiten, dat bedoelt SvenP niet denk ik
Offline SvenP - 14/06/2005 11:06
Avatar van SvenP PHP interesse MZ, ik denk dat da is wat ik zoek..
kzal even probeeren..

dankje wel 
Offline SvenP - 14/06/2005 11:27
Avatar van SvenP PHP interesse hmm..
zou er mss nog een andere manier zijn dattie nog een script kan uitvoeren ?
k heb geprobeert een timer enable true erin te zetten..
ofwel, hij moet even w8en voordattie uit gaat..
maar die negeert hij.. hij gaat meteen uit..
mss een mogelijkheid?
Offline prorsoft - 14/06/2005 12:02
Avatar van prorsoft PHP gevorderde ja natuurlijk kan dat!
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     If (MsgBox("Weet je het zeker?", vbYesNo + vbInformation, "Sluiten") = vbYes) Then
  3.         Cancel = 0
  4.     Else
  5.         Cancel = 1
  6.     End If
  7. End Sub

je kan hier toch overal code instoppen?
pas alsie bij End Sub is kijkt VB of cancel 1 is, zonee sluitie hem.
Daartussen kan je hem laten wachten, je laat cancel sowieso op 0 zetten en je voert dan een timer uit en dan laatie hem sluiten, moet je in een variabele zetten ofie wel of cancel wel of niet op 0 gezet moet worden.

Volgens mij kan het ook met de functie wait...:s
Offline SvenP - 14/06/2005 12:35 (laatste wijziging 14/06/2005 12:36)
Avatar van SvenP PHP interesse hmm..
ik heb nu dit
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     If (MsgBox("Weet je het zeker?", vbYesNo + vbInformation, "Sluiten") = vbYes) Then
  3.         WSclient.SendData nick & " left server."
  4.         Cancel = 1
  5.     Else
  6.         Cancel = 1
  7.     End If
  8. End Sub

k heb bijde cancel even 1 gemaakt om te testen..
hij werkt nu wel, er komt 'sven left server.' te staan als ik op Ja klik...
maar als ik van die cancel een 0 maak, sluit hij em af, zonder de txt te laten zien....:s
(ik ben dus geconnect met mezelf in ander venster, komt nix in te staan)
Offline prorsoft - 14/06/2005 12:58 (laatste wijziging 14/06/2005 13:03)
Avatar van prorsoft PHP gevorderde ja, dat duurt natuurlijk even, voordat de data gesend is naar de server.

moet je toch even laten wachten...

EDIT: probeer het zo eens:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Private Sub Form_Unload(Cancel As Integer)
  2.     If (MsgBox("Weet je het zeker?", vbYesNo + vbInformation, "Sluiten") = vbYes) Then
  3.         WSclient.SendData nick & " left server."
  4.         DoEvents
  5.         Cancel = 0
  6.     Else
  7.         Cancel = 1
  8.     End If
  9.     DoEvents
  10. End Sub
Offline SvenP - 14/06/2005 13:10
Avatar van SvenP PHP interesse jaa.. zo wertkie wel 
hardstikke bedankt 
Offline SvenP - 14/06/2005 19:39 (laatste wijziging 14/06/2005 19:39)
Avatar van SvenP PHP interesse nu loop ik weer tegen de paal met een path iets..

als ik via start > uitvoern %programfiles% intyp, opent hij C:\Program Files\... maar nu wil ik iets kopieeren naar programfiles (als installatie) echter dit lukt niet..

php code - Bekijk de code zonder highlighting - Klap code in 
  1. Text1.Text = %programfiles% & "Chat2Me"


zo geeft hij aan Syntax error (denk da da aan de % ligt) maar wat moet ik gebruiken dat dit wel werkt in program files ?

zelfde prob hebk ook met windows\system(32)
Offline funtonez - 14/06/2005 20:38
Avatar van funtonez HTML interesse In een tekstvak klopt het zowiezo niet, het is immers een variabele van windows. Waarom neem je niet gewoon aan dat program files geowon op de c:\ schijf staat, dat is bij bijna iedereen.
Offline SvenP - 14/06/2005 21:42 (laatste wijziging 14/06/2005 23:32)
Avatar van SvenP PHP interesse mja.. bij bijna iedereen wel, maar bij sommigen ook niet (bij ons op school is het e: )
is er dan mss een andere mogelijkheid?
vast wel nii?

of anders, hoe heet zoiets? kan ik er mss naar zoeken..;-)


edit: k heb een betaversie af met de installatie,
k heb de path even op andere manier gedaan
dat je de partitie en de map apart selecteerd..
iig..

tis nog een beta versie..
hij werkt verders wel goed..
k zou wel even willen weten wat jullie ervan vinden.. 
http://www.a4o.nl/Chat2Me.zip
Offline prorsoft - 15/06/2005 12:57
Avatar van prorsoft PHP gevorderde probeer het eens zo:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Text1.Text = "%ProgramFiles%Chat2Me"
Offline SvenP - 16/06/2005 17:48 (laatste wijziging 16/06/2005 17:50)
Avatar van SvenP PHP interesse nieuw prob...
dit zou moeten werken:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. If mnuNotifications.Checked = True Then
  2.     mnuNotifications.Checked = False
  3. Else
  4.     mnuNotifications.Checked = True
  5. End If


maar hij geeft deze error aan:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. Method or data member noet found


ofwel, ik wil een menuoptie hebben met een selectie vinkje erbij..
maar ik kan niet laten controleren alsie aan of uit staat...

endige mogelijkheden die er zijn is
php code - Bekijk de code zonder highlighting - Klap code in 
  2. Item
  3. LBound
  4. UBound

voor mnuNotifications
Offline Ontani - 16/06/2005 17:54
Avatar van Ontani Gouden medailleGouden medailleGouden medailleGouden medaille

-1		 Item.Checked = True ofzo

ik ben vb.net programeur dus kan zijn dat het nie klopt
Offline SvenP - 16/06/2005 18:21 (laatste wijziging 16/06/2005 18:27)
Avatar van SvenP PHP interesse en da klopt dus idd niet.. 

mss andere alternativen?
edit: tog gefixt 
php code - Bekijk de code zonder highlighting - Klap code in 
  1. mnuNotifications.Item(23).Checked = False

moest het zijn  
Offline prorsoft - 16/06/2005 18:31
Avatar van prorsoft PHP gevorderde
php code - Bekijk de code zonder highlighting - Klap code in 
  1. mnuNotifications.menuitempje.Checked = False


kan dit niet?
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.273s