Moti Barski
Posts : 177
Join date : 2011-08-02
 |  Subject: VS2017 confirmed working codes  Tue Mar 21, 2017 9:43 pm | |
| screen capture : - Code:
Public Class Form1
'Dim bmp1 As Bitmap
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot.Clone()
screenshot.Dispose()
End Sub
End Class
_________________ MB over and out _______________________  |
|
Moti Barski
Posts : 177
Join date : 2011-08-02
| | Subject: Re: VS2017 confirmed working codes Tue Mar 21, 2017 10:17 pm | |
| _________________ MB over and out _______________________ |
|
Moti Barski
Posts : 177
Join date : 2011-08-02
| | Subject: visual studio 2017 break point Tue Apr 11, 2017 9:55 pm | |
| to insert a break point stand on the code line and type f9
then you can also right click the point to add conditions such as I = 3
with I being some var you declared _________________ MB over and out _______________________ |
|
Moti Barski
Posts : 177
Join date : 2011-08-02
| | Subject: text to speech Sun Apr 23, 2017 1:38 am | |
| tools, add reference (type)speechlib - Code:
Imports System.Speech.Synthesis
'https://www.youtube.com/watch?v=sC2kQ-vx42M
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim synth As New SpeechSynthesizer
synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Child)
synth.Speak(TextBox1.Text)
TextBox1.Clear()
'Dim SAPI
'SAPI = CreateObject("SAPI.spvoice")
'SAPI.Speak("Welcome to the 13th visual basic .net tutorial")
End Sub
End Class _________________ MB over and out _______________________ |
|
Calendar
