Re: Stop dell'applicazione

Article View: free.it.visual-basic

Article #3428

Back to free.it.visual-basic Previous Next

#3428

From: Pippo in Lutto
Date: Tue, 16 Jul 2002 08:23

41 lines
2378 bytes

Spiacente nel messaggio precedente ho commesso un errore nella scrittura
della sub command2_click

 Prova cos� (oppure adattalo)
 'Inserisci una variabile pubblica al form o al modulo
 'inserisci nel form un secondo pulsante di stop e nell'evento
command2_click
 'inserisci la routine qui sotto, quindi modifica la routine principale come
 indicato e prova....
 'Questo dovrebbe consentirti di usire dalla subroutine senza scaricare i
 controlli

 Public BloccaMiaApplicazione as Boolean

    'Questo � il pulsante di stop
      Private sub command2_click
        BloccaMiaApplicazione  = true
     end sub


  Private sub command1_click
  BloccaMiaApplicazione  = False
  Mscomm1.portopen= True
  For I= 720 to 11490
  Mscomm1.Output = chr$ (156) & "a"
  Do
  diagramma  = doevents ( )
  Loop until Mscomm1.Inputbuffercount = 2
  A = Asc(Mscomm1.input)
  B = 6350 - A* 15
  Pset (I , B)

 doevents
 If  BloccaMiaApplicazione = True then
     exit sub
  end if

  Next
  Mscomm1.Portopen = False
 Form1.Printform
  End sub

Technical Details

Message-ID: <fKQY8.84807$vm5.3083219@news2.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail

References:

<8O0Y8.63926$Jj7.1664325@news1.tin.it> <W5xY8.80788$vm5.2938404@news2.tin.it> <W1yY8.81137$vm5.2946774@news2.tin.it> <usyY8.81242$vm5.2950901@news2.tin.it> <ofFY8.69665$Jj7.1829560@news1.tin.it> <MGQY8.84795$vm5.3082878@news2.tin.it>

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,451916fea5455d63
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-07-16 01:29:58 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail
From: "Pippo in Lutto" <pippoInlutto@libero.it>
Newsgroups: free.it.visual-basic
References: <8O0Y8.63926$Jj7.1664325@news1.tin.it> <W5xY8.80788$vm5.2938404@news2.tin.it> <W1yY8.81137$vm5.2946774@news2.tin.it> <usyY8.81242$vm5.2950901@news2.tin.it> <ofFY8.69665$Jj7.1829560@news1.tin.it> <MGQY8.84795$vm5.3082878@news2.tin.it>
Subject: Re: Stop dell'applicazione
Lines: 44
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <fKQY8.84807$vm5.3083219@news2.tin.it>
Date: Tue, 16 Jul 2002 08:23:39 GMT
NNTP-Posting-Host: 212.216.39.30
X-Complaints-To: newsmaster@tin.it
X-Trace: news2.tin.it 1026807819 212.216.39.30 (Tue, 16 Jul 2002 10:23:39 MET DST)
NNTP-Posting-Date: Tue, 16 Jul 2002 10:23:39 MET DST
Organization: TIN

Reply to Parent Message