본문 바로가기
반응형

vb .net강좌15

비주얼베이직,visual basic,vb .net강좌-스톱워치,stopwatch,Resources,Audio,Timer 실행파일과 사운드를 파일첨부해두었습니다..타이머 0과 동시에 사운드가 울립니다,. 위와 같이 컨트롤을 배치합니다. 위와 같은 순서대로 사운드를 리소스 등록합니다. Public Class Form1 Dim t As Integer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click t = TextBox1.Text Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick t = t - 1 TextBox1.Text = t If t 2017. 1. 25.
visual basic,비주얼베이직,vb .net강좌-검색어 입력만으로 바로 검색가능한 WebBrowser,RadioButton,Navigate 텍스트 박스 검색어 입력만으로 바로 검색가능한 웹브라우저 입니다. 상단에 Panel 한개 설치해서 상단에 Dock 시킵니다.그안에 라디오버튼과 텍스트 박스,버튼을 설치합니다.. 하단에 WebBrowser 콘트롤을 설치합니다. Public Class Form1 Dim check As Integer = 1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load WebBrowser1.Navigate("http://www.google.com") '폼 로드시 기본적으로 구글사이트 뜨게 End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handl.. 2017. 1. 23.
비쥬얼베이직(비주얼베이직)visual basic,vb .net강좌 -그림그리기,ComboBox,FillEllipse,MouseMove Public Class Form1 Dim down = False Dim mybrush = Brushes.Red Dim wi As Integer = 10 Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown down = True End Sub Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove wi = ComboBox1.SelectedItem If down = True Then Me.CreateGraphics.FillEllipse(mybrush, e.X, e.Y, wi, wi) ' e.X /e. y .. 2017. 1. 20.
반응형

티스토리툴바