Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - SCEGLIERE FRA COMMAND1 O COMMAND2
Forum - Visual Basic 6 - SCEGLIERE FRA COMMAND1 O COMMAND2

Avatar
csstore (Normal User)
Newbie


Messaggi: 6
Iscritto: 13/12/2009

Segnala al moderatore
Postato alle 18:14
Sabato, 26/12/2009

HO QUESTO TIPO DI PROBLEMA DA RISOLVERE :

HO UN FORM DI NOME 1 DOVE CI SONO 2 PULTANTI (COMMAND1 E COMMAND2) E UN FORM DI NOME 2.
IL PUNTO E' QUESTO: NEL FORM DUE CI SONO DUE ISTRUZIONI  CHE VENGONO ESEGUITE ALL'APERTURA.

  Private Sub FormDUE_Load()
  nuova = Nuovo.Text1.Text
  nuova = Scelta.Text1.Text

QUELLO CHE VORREI FARE E'INSERIRE QUI' UNA ISTRUZIONE CHE MI SCELGA UNA DELLE DUE
DOPO LA PRESSIONE DI UNO DEI DUE PULSANTI NEL FORM1
MI SPIEGO MEGLIO E' POSSIBILE SCRIVERE CHE SE ALLA PRESSIONE DEL PULSANTE COMMAND1 (FORM1)
DEVI ESEGUIRE LA PRIMA ISTRUZIONE E ALLA PRESSIONE DEL PULSANTE COMMAND2 (FORM1) DEVI ESEGUIRE LA SECONSA.
sPERO DI ESSERE STATO CHIARO GRAZIE TANTE.

PM Quote
Avatar
Riki94 (Normal User)
Pro


Messaggi: 93
Iscritto: 30/07/2009

Segnala al moderatore
Postato alle 18:40
Sabato, 26/12/2009
Io programma in vb.net ma questa soluzione dovrebbe andare, anche se nn è da programmatori bravissimi...
Metti due checkbox nel form2.
E al click di uno dei due pulsanti nel form1 cambia la propietà checked nel form2.
Questo è il codice in vb.net. Modificalo un po per il vb6.

Spero ti sia utile...
Form1
Codice sorgente - presumibilmente VB.NET

  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         Form2.CheckBox1.Checked = True
  5.         Form2.CheckBox2.Checked = False
  6.         Form2.Show()
  7.     End Sub
  8.  
  9.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  10.         Form2.CheckBox1.Checked = False
  11.         Form2.CheckBox2.Checked = True
  12.         Form2.Show()
  13.     End Sub
  14. End Class


Form2
Codice sorgente - presumibilmente VB.NET

  1. Public Class Form2
  2.  
  3.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         CheckBox1.Visible = False
  5.         CheckBox2.Visible = False
  6.         If CheckBox1.Checked Then
  7.             'prima scelta
  8.         End If
  9.         If CheckBox2.Checked = True Then
  10.             'seconda scelta
  11.         End If
  12.     End Sub
  13. End Class


Ultima modifica effettuata da Riki94 il 26/12/2009 alle 18:42
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 18:48
Sabato, 26/12/2009
1) Non scrivere in maiuscolo
2) Rileggi quello che scrivi dato che hai fatto vari errori di battitura
3) Spiegati meglio

PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 22:11
Sabato, 26/12/2009
Secondo me una buona soluzione è: inserire nell'evento click dei due pulsanti il richiamo ad una subroutine pubblica del form2 a cui passi un parametro:

Private sub Command1_click

  Form2.Mostra 1

Private sub Command2_click

  Form2.Mostra 2

Naturalmente --Mostra-- è totalmente arbitrario
Nella form2 scrivi la sub pubblica:

Public sub Mostra (i as integer)

  if i=1 then
    nuova = Nuovo.Text1.Text
  else
    nuova = Scelta.Text1.Text
  end if

  Me.show

end sub

Ciao

PM Quote