Dit is niet 1 tutorial over visual Basic/Studio maar dit zijn merendeels source code voor visual Basic/Studio.
Ik zal mijn best doen de zaken zo goed mogelijk uit teleggen, tog vraag ik begrip voor mijn dislekti.
________________________________________________________
Vind je het ook niet raar dat je text soms gewoon op je scherm gedrukt word als je een label verandert, of een richtextbox?
ik heb een stukje code gemaakt dat met behulp van een timer, de text letter voor letter zal type net als een persoon dat doen.
hiervoor zelf een timer en een richtextbox teplaatsen, dan kunt u deze code zo gebruiken.
________________________________________________________
Aan het type in een textbox maar geen zin om steets op de button te moeten klikken?
Deze code zal, als u op de "ENTER" toets drukt de button1_click event actieveren.
________________________________________________________
Gemakelijk TTS willen toevoegen maar heeft u problemen met het freezen van uw Programma?
Hiermee is diet probleem opgelost! (Gemakelijk tegebruiken met de letter voor letter schijver (zie boven aan))
(Hievoor heeft u de Speech Lib nodig!) SpeechSDK51.exe
Gemakelijk aan teroepen met:
________________________________________________________
Meer zal komen, als dit soort tutorial toegestaan zijn.
Voor vragen kunt u me altijd een prive bericht sturen.
Ik zal mijn best doen de zaken zo goed mogelijk uit teleggen, tog vraag ik begrip voor mijn dislekti.
________________________________________________________
Vind je het ook niet raar dat je text soms gewoon op je scherm gedrukt word als je een label verandert, of een richtextbox?
ik heb een stukje code gemaakt dat met behulp van een timer, de text letter voor letter zal type net als een persoon dat doen.
hiervoor zelf een timer en een richtextbox teplaatsen, dan kunt u deze code zo gebruiken.
Code:
Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
dim tmptext as string
tmptext = "Dit is een test"
timer1.start
end sub
Code:
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If tmptext.Length > 0 Then
richtextbox1.Text += Microsoft.VisualBasic.Left(tmptext, 1)
tmptext = Microsoft.VisualBasic.Right(tmptext, Len(tmptext) - 1)
Else
Timer1.Stop()
End If
End Sub
________________________________________________________
Aan het type in een textbox maar geen zin om steets op de button te moeten klikken?
Deze code zal, als u op de "ENTER" toets drukt de button1_click event actieveren.
Code:
Private Sub textbox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
If e.KeyChar = ControlChars.Cr Then
e.Handled = True
Button1.PerformClick()
End If
End Sub
________________________________________________________
Gemakelijk TTS willen toevoegen maar heeft u problemen met het freezen van uw Programma?
Hiermee is diet probleem opgelost! (Gemakelijk tegebruiken met de letter voor letter schijver (zie boven aan))
(Hievoor heeft u de Speech Lib nodig!) SpeechSDK51.exe
Code:
Imports SpeechLib
Code:
Public Function say(om)
voice.Speak(om, SpeechVoiceSpeakFlags.SVSFlagsAsync)
end Function
Gemakelijk aan teroepen met:
Code:
say("Dit is de text dat gesproken moet worden.")
Meer zal komen, als dit soort tutorial toegestaan zijn.
Voor vragen kunt u me altijd een prive bericht sturen.