battle programmers alliance
Would you like to react to this message? Create an account in a few clicks or log in to continue.

battle programmers allianceLog in

the LivinGrimoire Artificial General Intelligence software design pattern forum

VS2017 confirmed working codes

power_settings_newLogin to reply

descriptionVS2017 confirmed working codes EmptyVS2017 confirmed working codesTue Mar 21, 2017 9:43 pm

more_horiz
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

descriptionVS2017 confirmed working codes EmptyRe: VS2017 confirmed working codesTue Mar 21, 2017 10:17 pm

more_horiz
see Re: vb.net volume meter   Fri Mar 17, 2017 2:45 am

http://yotamarker.forumotion.com/t10-vb-net-volume-meter

descriptionVS2017 confirmed working codes Emptyvisual studio 2017 break pointTue Apr 11, 2017 9:55 pm

more_horiz
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

descriptionVS2017 confirmed working codes Emptytext to speechSun Apr 23, 2017 1:38 am

more_horiz
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
privacy_tip Permissions in this forum:
You cannot reply to topics in this forum
power_settings_newLogin to reply