Guida [VB6]Creare un blocco note con voce incorporata

[Misterx23]

:ave a tutti!oggi vi insegnero come creare un blocco note in visual basic 6 con voce incorporata

Allora... non mettero 30 immagini su come farlo ma solo 1 ( con tutti i bottoni testi gia predisposti, i comandi li scrivero )Iniziamo!!!
Requisiti:
Visual basic 6.0(anche portatile)
13 bottoni
2 label
1 textbox
Pannello dei colori(premendo in sequenza Alt-v-l)
-----------------------------------------------------
Creare uno standar EXE e modellare la form cosi(mettete i bottoni in senso orario quindi si iniza da destra poi si scende e infine si va a sinistra)(quando arrivate a sinistra iniziate da Cancella tutto poi su esci e poi su testo parlato sorry per la confusione):

P.S Per le barre di scorrimento cliccate 1 volta sulla textboxt e individuate la stinga multiline e cambiate false con true.
Bene una volta fatto questo si passa ai comandi.
Copiate con estrema precisione(cliccate su un bottone cancellate il private sub e compagnia bella e appicicateci questo):
Private Sub Command1_Click()
Text1.FontSize = 20

End Sub
Private Sub Command10_Click(Index As Integer)
Text1.ForeColor = &HFF0000

End Sub

Private Sub Command11_Click(Index As Integer)
Text1.Text = ""

End Sub

Private Sub Command12_Click(Index As Integer)
Unload Me
End Sub

Private Sub Command13_Click()
Set objtexttospeech = CreateObject("sapi.spvoice")
objtexttospeech.speak Text1.Text
End Sub

Private Sub Command2_Click()
Text1.FontSize = 40
End Sub

Private Sub Command3_Click()
Text1.FontSize = 60
End Sub

Private Sub Command4_Click()
Text1.FontSize = 80
End Sub

Private Sub Command5_Click()
Text1.FontSize = 100
End Sub

Private Sub Command6_Click()
Text1.ForeColor = &H0&

End Sub

Private Sub Command7_Click()
Text1.ForeColor = &HFFFFFF
End Sub

Private Sub Command8_Click(Index As Integer)
Text1.ForeColor = &HFF&
End Sub

Private Sub Command9_Click(Index As Integer)
Text1.ForeColor = &HFFFF&

End Sub

Private Sub Form_Load()

End Sub

Bene abbiamo finito se provate a farla partire e se premerete su vari bottoni succedete una determinata cosa(per esempio se scrivete e poi cliccate sul bottone venti il testo si ingradira fino a 20)mentre se scrivete e fate poi testo parlato si sentira una voce(alquanto inglese ma se la cava con l'italiano XD)che parlera...ah se provate a scrivere lolololololololololol e poi fate testo parlato noterete che il cretino che parla imita quel blwblwblwblwblw del dottor Zoyberg di futurama.
Se vi e piaciuto aumentatemi la rep.

Fonte:mio amico(mi aiutato lui io la mente e lui il braccio;P)​

 

[FireFox]

Ciao,

potevi mettere anche pulsanti per cambiare font e per fare il testo grassetto, corsivo, sottolineato, barrato.

 

[Misterx23]

potevi mettere anche pulsanti per cambiare font e per fare il testo grassetto, corsivo, sottolineato, barrato.

be questi non li so fare :P

 

[FireFox]

Sei riuscito a chiamare il controllo vocale e non riesci a cambiare font? 1o1

 

[Misterx23]

Sei riuscito a chiamare il controllo vocale e non riesci a cambiare font?

hem si ;P

[OT]senti non e che me li puoi dire cosi lo aggiorno???[/OT]

 

[-alessio-]

La lingua del testo vocale è mezza italiana e mezza no >_>

 

[shinil35]

No xD è inglese totalmente!

 

[Jollyman]

Utilizza il narrator.exe che si trova nel seguente percorso:C:\WINDOWS\system32\narrator.exe