VB.Net by API/System.Windows.Forms — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:52, 26 мая 2010
- AnchorStyles
- Application
- Button
- CheckBox
- CheckState
- CheckedListBox
- Clipboard
- ColorDialog
- ComboBox
- Control
- ControlPaint
- ControlStyles
- Cursor
- Cursors
- DataFormats
- DataGrid
- DataGridView
- DataObject
- DateTimePicker
- DateTimePickerFormat
- DialogResult
- DockStyle
- DomainUpDown
- DragDropEffects
- DragEventArgs
- DrawItemEventArgs
- ErrorProvider
- FlowLayoutPanel
- FolderBrowserDialog
- Form
- FormStartPosition
- GroupBox
- HScrollBar
- HelpProvider
- IMessageFilter
- ImageList
- KeyEventArgs
- KeyPressEventArgs
- Keys
- Label
- LinkLabel
- ListBox
- ListView
- ListViewItem
- MdiLayout
- MeasureItemEventArgs
- MenuItem
- MessageBox
- MessageBoxButtons
- MessageBoxDefaultButton
- MessageBoxIcon
- MonthCalendar
- NotifyIcon
- NumericUpDown
- OpenFileDialog
- PageSetupDialog
- PaintEventArgs
- Panel
- PictureBox
- PrintDialog
- PrintPageEventArgs
- ProgressBar
- PropertyGrid
- RadioButton
- RichTextBox
- SaveFileDialog
- SplitContainer
- StatusBar
- StatusBarPanel
- SystemBrushes
- SystemColors
- SystemIcons
- SystemInformation
- SystemPens
- TabControl
- TabPage
- TableLayoutPanel
- TextBox
- ToolBar
- ToolBarButton
- ToolBarButtonClickEventArgs
- ToolStrip
- ToolStripMenuItem
- ToolStripProgressBar
- ToolStripStatusLabel
- ToolTip
- TrackBar
- TreeNode
- TreeView
- TreeViewAction
- UserControl
- VScrollBar
- WebBrowser
Содержание
FontDialog.AllowScriptChange
<source lang="vbnet"> Imports System.Drawing Imports System.Windows.Forms public class FontDialogProperty
public Shared Sub Main
Dim FontDialog1 As FontDialog = New System.Windows.Forms.FontDialog Dim objNewFont As Font objNewFont = New Font("Verdana", 12, FontStyle.Underline) With FontDialog1 .Font = objNewFont .AllowScriptChange = False .ShowColor = True .Color = Color.Blue .ShowApply = True ".ShowEffects = False End With If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Console.WriteLine(FontDialog1.Font) Console.WriteLine(FontDialog1.Color) End If End Sub
End class
</source>
FontDialog.Color
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim dlgFont As System.Windows.Forms.FontDialog dlgFont = New System.Windows.Forms.FontDialog "dlgFont.Font = set your font here If dlgFont.ShowDialog() = DialogResult.OK Then Console.WriteLine( dlgFont.Font ) Console.WriteLine( dlgFont.Color ) End If End Sub
End Class
</source>
FontDialog.Font
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim dlgFont As System.Windows.Forms.FontDialog dlgFont = New System.Windows.Forms.FontDialog "dlgFont.Font = set your font here If dlgFont.ShowDialog() = DialogResult.OK Then Console.WriteLine( dlgFont.Font ) Console.WriteLine( dlgFont.Color ) End If End Sub
End Class
</source>
FontDialog.ShowApply
<source lang="vbnet"> Imports System.Drawing Imports System.Windows.Forms public class FontDialogProperty
public Shared Sub Main
Dim FontDialog1 As FontDialog = New System.Windows.Forms.FontDialog Dim objNewFont As Font objNewFont = New Font("Verdana", 12, FontStyle.Underline) With FontDialog1 .Font = objNewFont .AllowScriptChange = False .ShowColor = True .Color = Color.Blue .ShowApply = True ".ShowEffects = False End With If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Console.WriteLine(FontDialog1.Font) Console.WriteLine(FontDialog1.Color) End If End Sub
End class
</source>
FontDialog.ShowColor
<source lang="vbnet"> Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim dlgFont As System.Windows.Forms.FontDialog dlgFont = New System.Windows.Forms.FontDialog dlgFont.ShowColor = True If dlgFont.ShowDialog() = DialogResult.OK Then End If End Sub
End Class
</source>
FontDialog.ShowEffects
<source lang="vbnet">
Imports System.Drawing Imports System.Windows.Forms public class FontDialogApplyAction
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub btnSetFont_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnSetFont.Click Dim old_font As Font = Me.Font Dim old_color As Color = Me.ForeColor dlgFont.ShowColor = True " Let the user select font color. dlgFont.ShowEffects = True " Let the user select Strikeout and Underline. dlgFont.ShowApply = True " Display the Apply button. dlgFont.Font = Me.Font " Set the initial font. If dlgFont.ShowDialog() = DialogResult.OK Then SetFormFont(dlgFont.Font, dlgFont.Color) Else SetFormFont(old_font, old_color) End If End Sub Private Sub dlgFont_Apply(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles dlgFont.Apply Dim dlg As FontDialog = DirectCast(sender, FontDialog) SetFormFont(dlg.Font, dlg.Color) End Sub Private Sub SetFormFont(ByVal new_font As Font, ByVal new_color As Color) Me.Font = new_font Me.ForeColor = new_color 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.btnSetFont = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.dlgFont = New System.Windows.Forms.FontDialog Me.SuspendLayout() " "btnSetFont " Me.btnSetFont.Location = New System.Drawing.Point(8, 8) Me.btnSetFont.Name = "btnSetFont" Me.btnSetFont.Size = New System.Drawing.Size(96, 32) Me.btnSetFont.TabIndex = 0 Me.btnSetFont.Text = "Set Font" " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 48) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(35, 13) Me.Label1.TabIndex = 1 Me.Label1.Text = "Label1" " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(8, 80) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(160, 20) Me.TextBox1.TabIndex = 2 Me.TextBox1.Text = "Here"s a TextBox" " "Form1 " Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.ClientSize = New System.Drawing.Size(325, 273) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.btnSetFont) Me.Name = "Form1" Me.Text = "UseFontDialogWithShowEffects" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents btnSetFont As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents dlgFont As System.Windows.Forms.FontDialog
End Class
</source>