Total Hack Cheat
Benvenuto/a su Total hack Cheat....
non aspettate altro tempo Registratevi!!

Visual Basic Guida n.3

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

E stata Utile La Guida?

Stupenda
 
Molto
 
Abbastanza
 
cosi cosi
 
Poco
 
Per niente
 
 
 
Guardare i risultati

Visual Basic Guida n.3

Messaggio Da RaYoZ il Mar Lug 27, 2010 11:31 am

Benvenuti alla parte 3! Questa volta vi dirò qualcosa sui MsgBox! (Voglio ricordare che ho 15 anni senza nessuna istruzione superiore! Quindi spiego solo le basi e scusate se è poco! Ma a Natale prendo la Guida di 900 pagine così da potervi aggiornare meglio e spiegare qualcosa di più! )
____________________________________________________________________________________________________
LinkLabel: È un label a cui si può aggiungere un URL interno, quindi nel form inseriamo anche un WebBrowser e come ho detto nella Guida precedente, aprire la classe del LinkLabel e inserire il seguente codice:

Codice:
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
      WebBrowser1.Navigate("[Devi essere iscritto e connesso per vedere questo link]
  End Sub


Potete usare questa funzione ad esempio mettendo un LinkLabel collegato alla vostra pagina Web così che se volete presentare un programma lascerete la vostra "firma" diciamo...
______________________________________________________________________________________________________
Come sempre creeiamo il nostro progetto e inseriamo un semplice Button nel Form, rinominatelo come volete e clicchiamo 2 volte...
Bene ora inseriamo il seuente codice:

Codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      On Error Resume Next
      Dim title, risposta
      title = "Quiz 1.0" 'Titolo dell'applicazione

      risposta = MsgBox("Roma è la capitale d'Italia ?", vbYesNo + vbQuestion, title)
      'Visualizza un MsgBox

      If risposta = vbYes Then
          'Se la risposta è si

          MsgBox("Esatto!", MsgBoxStyle.Information, title)
          'Visualizza esatto

      Else
          'altrimenti

          MsgBox("Hai sbagliato!" & vbCrLf & "Pazienza...", vbExclamation, title)
          'Visualizza sbagliato
      End If
  End Sub

On Error Resume Next significa che se si verifica un errore di runtime, l'esecuzione viene trasferita all'istruzione successiva. In pratica aiuta l'applicazione a non generare errori...

Dim - Dichiara e alloca spazio di archiviazione per uno o più campi membro | Per aggiungere un altro campo mettere un virgola, come abbiamo fatto per title e risposta. Grazie a Dim ora abbiamo 2 nuovi campi, quindi mettiamo...

title = "Quiz 1.0" per dare un nome all'applicazione, in questo caso Quiz 1.0.
SPOILER (clicca per visualizzare)
'Titolo applicazione - precedere un testo da un apostrofo (che su VB si visualizzerà in verde) serve per crearsi un'annotazione nei codici, così da non confondersi e creare errori! Questa frase non influenzerà l'applicazione).

risposta invece, sempre della seziona Dim e sempre dietro a un Uguale, mettiamo MsgBox che al Click del Button apparirà un Javascript con il testo che abbiamo messo tra virgolette e nella parentesi come esempio (separare testi e funzioni con una virgola MOLTO IMPORTANTE); include anche vbYesNo ed è un codice che prevede VB coerente alla routine, MsgBox, che ti darà la scelta di si o un no. Aggiungiamo (+) vbQuestion per inserire nel MsgBox un'icona a "punto di domanda". Ancora una virgola per aggiungere titolo così da legarsi a "Quiz" che abbiamo dato con Dim e dare nome alla MsgBox.
SPOILER (clicca per visualizzare)
vbQuestion


If (dall'inglese "se") risposta = vbYes Then - Quindi "se la risposta è si", passeremo a...
MsgBox("Esatto!" - Quindi se la risposta è si apparira "Esatto!", MsgBoxStyle ce ne sono di vari tipi, in questo caso .Information che darà al MsgBox questa icona:

MsgBoxStyle.Information

(Ricordaimo sempre alla fine Title)

Else - Altrimenti se l'opzione non è "SI" ma "NO" si passerà a...
MsgBox("Hai sbagliato!" - Stessa cosa dell'opzione si ma questa volta aggiungiamo una riga di testo... Come andare a capo nel testo di un MsgBox? Dividendo questa volta non con virgole ma con "E commerciali" (&) perchè stiamo "parlando" del testo del MsgBox e non della funzione! Quindi scriveremo vbCrLf (forse difficile da ricordare) che manderà a capo il testo e scriveremo... "Pazienza...", vbExclamation per dare al MsgBox questa icona:

vbExclamation


Approfondimento: If,Then, ElseIf, Selct Case... - Sono istruzioni che si mettono nei codici, in qualunque momento, quando vogliamo eseguire azioni diverse in base a decisioni diverse.


Con questo ho finito e spero abbiate compreso la piccola guida sui MsgBox. Ciao a tutti!

RaYoZ
Admin
Admin

Messaggi : 1040
Punti : 2245
Data d'iscrizione : 03.04.10
Età : 22
Località : immerso nei pensieri

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permesso di questo forum:
Non puoi rispondere agli argomenti in questo forum