VB.Net/GUI/Cursor

Материал из VB Эксперт
Версия от 15:43, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Change Frame Cursor: custom cursor

<source lang="vbnet"> Imports System Imports System.ruponentModel Imports System.Windows.Forms

Public Class MainClass 

   Shared Sub Main(ByVal args As String())
       Dim myform As Form = New Form1()
       Application.Run(myform)
   End Sub

End Class

Public Class Form1 

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.Cursor = New Cursor("test.ico")
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1 

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SuspendLayout()
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 273)
       Me.Name = "Form1"
       Me.Text = "Form1"
       Me.ResumeLayout(False)
   End Sub

End Class 

      </source>


Set Wait Cursor for a Frame through Check Box

<source lang="vbnet"> Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ruponentModel Imports System.Windows.Forms Imports System.IO Public Class MainClass 

   Shared Sub Main(ByVal args As String())
       Dim myform As Form = New Form1()
       Application.Run(myform)
   End Sub

End Class Public Class Form1 

   Private Sub chkWaitCursors_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkWaitCursors.CheckedChanged
       If chkWaitCursors.Checked Then
           Me.Cursor =  Cursors.WaitCursor
       Else
           Me.Cursor = Cursors.Default
       End If
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1 

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.chkWaitCursors = New System.Windows.Forms.CheckBox
       Me.SuspendLayout()
       "
       "chkWaitCursors
       "
       Me.chkWaitCursors.AutoSize = True
       Me.chkWaitCursors.Location = New System.Drawing.Point(16, 16)
       Me.chkWaitCursors.Name = "chkWaitCursors"
       Me.chkWaitCursors.Size = New System.Drawing.Size(86, 17)
       Me.chkWaitCursors.TabIndex = 0
       Me.chkWaitCursors.Text = "Wait Cursors"
       Me.chkWaitCursors.UseVisualStyleBackColor = True
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(299, 163)
       Me.Controls.Add(Me.chkWaitCursors)
       Me.Name = "Form1"
       Me.Text = "SetAllCursors"
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents chkWaitCursors As System.Windows.Forms.CheckBox

End Class 

      </source>


Show All Cursors

<source lang="vbnet"> Imports System Imports System.Runtime.InteropServices Imports System.Drawing Imports System.ruponentModel Imports System.Windows.Forms Imports System.IO Public Class MainClass 

   Shared Sub Main(ByVal args As String())
       Dim myform As Form = New Form1()
       Application.Run(myform)
   End Sub

End Class Public Class Form1 

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim x As Integer = 10
       Dim y As Integer = 10
       ShowCursor(e.Graphics, x, y, Cursors.AppStarting, "AppStarting")
       ShowCursor(e.Graphics, x, y, Cursors.Arrow, "Arrow")
       ShowCursor(e.Graphics, x, y, Cursors.Cross, "Cross")
       ShowCursor(e.Graphics, x, y, Cursors.Default, "Default")
       ShowCursor(e.Graphics, x, y, Cursors.Hand, "Hand")
       ShowCursor(e.Graphics, x, y, Cursors.Help, "Help")
       ShowCursor(e.Graphics, x, y, Cursors.HSplit, "HSplit")
       ShowCursor(e.Graphics, x, y, Cursors.IBeam, "IBeam")
       ShowCursor(e.Graphics, x, y, Cursors.No, "No")
       ShowCursor(e.Graphics, x, y, Cursors.NoMove2D, "NoMove2D")
       ShowCursor(e.Graphics, x, y, Cursors.NoMoveHoriz, "NoMoveHoriz")
       ShowCursor(e.Graphics, x, y, Cursors.NoMoveVert, "NoMoveVert")
       ShowCursor(e.Graphics, x, y, Cursors.PanEast, "PanEast")
       ShowCursor(e.Graphics, x, y, Cursors.PanNE, "PanNE")
       ShowCursor(e.Graphics, x, y, Cursors.PanNorth, "PanNorth")
       ShowCursor(e.Graphics, x, y, Cursors.PanNW, "PanNW")
       ShowCursor(e.Graphics, x, y, Cursors.PanSE, "PanSE")
       ShowCursor(e.Graphics, x, y, Cursors.PanSouth, "PanSouth")
       ShowCursor(e.Graphics, x, y, Cursors.PanSW, "PanSW")
       ShowCursor(e.Graphics, x, y, Cursors.PanWest, "PanWest")
       ShowCursor(e.Graphics, x, y, Cursors.SizeAll, "SizeAll")
       ShowCursor(e.Graphics, x, y, Cursors.SizeNESW, "SizeNESW")
       ShowCursor(e.Graphics, x, y, Cursors.SizeNS, "SizeNS")
       ShowCursor(e.Graphics, x, y, Cursors.SizeNWSE, "SizeNWSE")
       ShowCursor(e.Graphics, x, y, Cursors.SizeWE, "SizeWE")
       ShowCursor(e.Graphics, x, y, Cursors.UpArrow, "UpArrow")
       ShowCursor(e.Graphics, x, y, Cursors.VSplit, "VSplit")
       ShowCursor(e.Graphics, x, y, Cursors.WaitCursor, "WaitCursor")
   End Sub
   Private Sub ShowCursor(ByVal gr As Graphics, ByRef x As Integer, ByRef y As Integer, ByVal cursor_type As Cursor, ByVal cursor_name As String)
       gr.DrawString(cursor_name, Me.Font, Brushes.Black, x, y)
       Dim rect As New Rectangle(x + 120, y, 32, 32)
       cursor_type.Draw(gr, rect)
       y += 30
       If y + 30 > Me.ClientSize.Height Then
           y = 10
           x += 175
       End If
   End Sub
   Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
       Me.Text = Me.ClientSize.Width & "x" & Me.ClientSize.Height
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1 

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SuspendLayout()
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(702, 303)
       Me.Name = "Form1"
       Me.Text = "ShowCursors"
       Me.ResumeLayout(False)
   End Sub

End Class 

      </source>
Источник — «http://vbex.ru/index.php?title=VB.Net/GUI/Cursor&oldid=469»