VB.NET

VScrollbar hScrollbar

2014.02.05

*	Public Class Form1 Sub colorbox() Dim yassir As Color yassir = Color.FromArgb(redbar.Value, greenbar.Value, bluebar.Value) panel.BackColor = yassir End Sub Private Sub redbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles redbar.Scroll If e.Type = ScrollEventType.EndScroll Then colorbox() redbox.Text = redbar.Value End Sub Private Sub greenbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles greenbar.Scroll If e.Type = ScrollEventType.EndScroll Then colorbox() greenbox.Text = greenbar.Value End Sub Private Sub bluebar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles bluebar.Scroll If e.Type = ScrollEventType.EndScroll Then colorbox() bluebox.Text = bluebar.Value End Sub End Class

Public Class Form1
Sub colorbox()
Dim yassir As Color
yassir = Color.FromArgb(redbar.Value, greenbar.Value, bluebar.Value)
panel.BackColor = yassir
End Sub

Private Sub redbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles redbar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
redbox.Text = redbar.Value
End Sub

Private Sub greenbar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles greenbar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
greenbox.Text = greenbar.Value
End Sub

Private Sub bluebar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles bluebar.Scroll
If e.Type = ScrollEventType.EndScroll Then colorbox()
bluebox.Text = bluebar.Value
End Sub
End Class

코드

이 게시물을

교교

2014.02.06 08:52

Dim ScrollSaved As Integer 
'Previous ScrollBar setting 
 
Private Sub UserForm_Initialize() 
 ScrollBar1.Min = -225 
 ScrollBar1.Max = 289 
 ScrollBar1.Value = 0 
 
 Label1.Caption = "-225 -----Widgets----- 289" 
 Label1.AutoSize = True 
 
 Label2.Caption = "" 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
End Sub 
 
Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean) 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
 ScrollSaved = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Scroll() 
 Label2.Caption = (ScrollSaved – ScrollBar1 _ 
 .Value) & " Widget Changes by Scrolling" 
End Sub

교교

2014.02.06 08:55

lblRed.Text = "RED " & redBar.Value.ToString("###")

댓글

번호	제목
57	[.NET] Windows 부팅시 응용 프로그램 자동 실행 시키기 [1]
56	OpenFileDialog와 Filter 사용법 [2]
55	pagesetup 예제
54	PerformanceCounter를 활용해서 시스템의 상황을 보자 [1]
53	imagelist 전체화면으로 출력하기
52	VB.net 공유폴더 만들기
51	VB.NET에서 네트워크 드라이브 연결
50	계산기 만들기. [1]
49	프로그레스바 예제
48	NumericUpDown
47	Panel 이동
46	Panel Slider 만들기
45	StatusStrip,ToolStrip을 이용한 인터넷 접속창 만들기
44	인쇄 및 프린터 설정.
43	Imports 문(.NET 네임스페이스 및 형식)
42	prosess 확인 [1]
41	Microsoft DirextX 사용하기
40	LinkLabel과 Label의 차이를 알아보자 [3]
39	폴더를 선택할수 있는 FolderBrowserDialog [2]
38	TabControl의 설정 [1]

첫 페이지 4 5 6 7 8 9 10 11 12 13 끝 페이지

쓰기

태그

VNote
Visual Studio /IIS /Server

VScrollbar hScrollbar

댓글 2

교교

교교

VNote Visual Studio /IIS /Server

VScrollbar hScrollbar

댓글 2

교교

교교

VNote
Visual Studio /IIS /Server