Admin: 1 версия

2010-05-26T12:44:35Z

1 версия

Новая страница

* [[VB.Net/GUI/Action Handler | Action Handler]]
* [[VB.Net/GUI/Anchor | Anchor]]
* [[VB.Net/GUI/Background Worker | Background Worker]]
* [[VB.Net/GUI/Button | Button]]
* [[VB.Net/GUI/CheckBox | CheckBox]]
* [[VB.Net/GUI/CheckBoxList | CheckBoxList]]
* [[VB.Net/GUI/ComboBox | ComboBox]]
* [[VB.Net/GUI/Container Control | Container Control]]
* [[VB.Net/GUI/Control | Control]]
* [[VB.Net/GUI/Control Inheritance | Control Inheritance]]
* [[VB.Net/GUI/Control Owner Draw | Control Owner Draw]]
* [[VB.Net/GUI/Control Subclass | Control Subclass]]
* [[VB.Net/GUI/Cursor | Cursor]]
* [[VB.Net/GUI/DataGridView | DataGridView]]
* [[VB.Net/GUI/DataRow | DataRow]]
* [[VB.Net/GUI/Date Time Picker | Date Time Picker]]
* [[VB.Net/GUI/Dialog Color Chooser | Dialog Color Chooser]]
* [[VB.Net/GUI/Dialog File Save Open | Dialog File Save Open]]
* [[VB.Net/GUI/Dialog Folder Browser | Dialog Folder Browser]]
* [[VB.Net/GUI/Dialog Print | Dialog Print]]
* [[VB.Net/GUI/Dialog Your Own | Dialog Your Own]]
* [[VB.Net/GUI/Dock | Dock]]
* [[VB.Net/GUI/DomainUpDown | DomainUpDown]]
* [[VB.Net/GUI/Drag Drop | Drag Drop]]
* [[VB.Net/GUI/Drag Move | Drag Move]]
* [[VB.Net/GUI/Error Provider | Error Provider]]
* [[VB.Net/GUI/Form Event | Form Event]]
* [[VB.Net/GUI/Form Inheritance | Form Inheritance]]
* [[VB.Net/GUI/Form OnPaint | Form OnPaint]]
* [[VB.Net/GUI/Form Owner | Form Owner]]
* [[VB.Net/GUI/Form Redraw | Form Redraw]]
* [[VB.Net/GUI/Frame Form | Frame Form]]
* [[VB.Net/GUI/Frame Icon | Frame Icon]]
* [[VB.Net/GUI/Frame Special | Frame Special]]
* [[VB.Net/GUI/GUI Basics | GUI Basics]]
* [[VB.Net/GUI/GUI Event | GUI Event]]
* [[VB.Net/GUI/GroupBox | GroupBox]]
* [[VB.Net/GUI/Helper Provider | Helper Provider]]
* [[VB.Net/GUI/Image List | Image List]]
* [[VB.Net/GUI/Label | Label]]
* [[VB.Net/GUI/Label Multiline | Label Multiline]]
* [[VB.Net/GUI/Layout | Layout]]
* [[VB.Net/GUI/Layout Panel | Layout Panel]]
* [[VB.Net/GUI/LinkLabel | LinkLabel]]
* [[VB.Net/GUI/ListBox | ListBox]]
* [[VB.Net/GUI/ListView | ListView]]
* [[VB.Net/GUI/MDI | MDI]]
* [[VB.Net/GUI/Menu | Menu]]
* [[VB.Net/GUI/MessageBox | MessageBox]]
* [[VB.Net/GUI/Month Calendar | Month Calendar]]
* [[VB.Net/GUI/MsgBox | MsgBox]]
* [[VB.Net/GUI/Notify Icon Tray | Notify Icon Tray]]
* [[VB.Net/GUI/NumericUpDown | NumericUpDown]]
* [[VB.Net/GUI/Paint Mode | Paint Mode]]
* [[VB.Net/GUI/Panel | Panel]]
* [[VB.Net/GUI/Password | Password]]
* [[VB.Net/GUI/PictureBox | PictureBox]]
* [[VB.Net/GUI/PopupMenu | PopupMenu]]
* [[VB.Net/GUI/Print Document | Print Document]]
* [[VB.Net/GUI/Print Preview | Print Preview]]
* [[VB.Net/GUI/Print Setting | Print Setting]]
* [[VB.Net/GUI/Print Setup Dialog | Print Setup Dialog]]
* [[VB.Net/GUI/Progress Bar | Progress Bar]]
* [[VB.Net/GUI/Property Grid | Property Grid]]
* [[VB.Net/GUI/Radio Button | Radio Button]]
* [[VB.Net/GUI/ReDo UnDo | ReDo UnDo]]
* [[VB.Net/GUI/Resources | Resources]]
* [[VB.Net/GUI/RichTextBox | RichTextBox]]
* [[VB.Net/GUI/Rtf format | Rtf format]]
* [[VB.Net/GUI/Ruler | Ruler]]
* [[VB.Net/GUI/SDI | SDI]]
* [[VB.Net/GUI/Screen Capture | Screen Capture]]
* [[VB.Net/GUI/ScrollBar | ScrollBar]]
* [[VB.Net/GUI/Scrollable Control | Scrollable Control]]
* [[VB.Net/GUI/SendKeys | SendKeys]]
* [[VB.Net/GUI/Splash Screen | Splash Screen]]
* [[VB.Net/GUI/Split Container | Split Container]]
* [[VB.Net/GUI/Status Bar | Status Bar]]
* [[VB.Net/GUI/System Icons | System Icons]]
* [[VB.Net/GUI/TabControl | TabControl]]
* [[VB.Net/GUI/TextBox | TextBox]]
* [[VB.Net/GUI/TextBox Special | TextBox Special]]
* [[VB.Net/GUI/TextBox Validation | TextBox Validation]]
* [[VB.Net/GUI/ToolBar | ToolBar]]
* [[VB.Net/GUI/ToolStrip Menu | ToolStrip Menu]]
* [[VB.Net/GUI/Toolstrip | Toolstrip]]
* [[VB.Net/GUI/Tooltip | Tooltip]]
* [[VB.Net/GUI/TrackBar | TrackBar]]
* [[VB.Net/GUI/TreeView | TreeView]]
* [[VB.Net/GUI/User Control | User Control]]

==Display All font installed in your system==

<source lang="vbnet">
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class MainClass
Shared Sub Main()
Dim form1 As Form1 = new Form1
Application.Run(form1)
End Sub

End Class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
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.
Friend WithEvents panel As System.Windows.Forms.Panel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.panel = New System.Windows.Forms.Panel()
Me.SuspendLayout()
"
"panel
"
Me.panel.AutoScroll = True
Me.panel.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.panel.Location = New System.Drawing.Point(19, 21)
Me.panel.Name = "panel"
Me.panel.Size = New System.Drawing.Size(304, 280)
Me.panel.TabIndex = 3
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(342, 323)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel})
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Style As FontStyle
Dim y As Int32 = 0
Dim ff As FontFamily
For Each ff In FontFamily.Families
Style = FontStyle.Regular
If ff.IsStyleAvailable(Style) Then
AddString(ff, y, Style)
End If
Next
End Sub
Private Sub AddString(ByVal ff As FontFamily, ByRef y As Int32, ByVal Style As FontStyle)
Dim fnt As Font = New Font(ff, 12, Style, GraphicsUnit.Pixel)
Dim LineSpace As Int32 = CInt((ff.GetLineSpacing(Style)) * _
fnt.Size / ff.GetEmHeight(Style))
y += LineSpace + 2
Dim pictureBox As PictureBox = New PictureBox()
pictureBox.Height = LineSpace
pictureBox.Width = panel.Width
Dim B As Bitmap = New Bitmap(pictureBox.Width, pictureBox.Height)
Dim G As Graphics = Graphics.FromImage(B)
G.DrawString(ff.Name + " : Style = " + Style.ToString(), _
fnt, Brushes.Black, 0, 0)
pictureBox.Image = B
panel.Controls.Add(pictureBox)
panel.Controls(panel.Controls.Count - 1).Location = New Point(2, y)
If y < panel.Height Then
panel.Refresh()
End If
fnt.Dispose()
G.Dispose()
End Sub
End Class

</source>

==Font dialog in VB.net==

<source lang="vbnet">
Imports System
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class MainClass
Shared Sub Main()
Dim dlg As FontDialog = New FontDialog()
Dim res As DialogResult = dlg.ShowDialog()
End Sub
End Class

</source>

==Font dialog: turn color option on==

<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>

==Font Properties in Bigger Font size==

<source lang="vbnet">
Imports System
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Globalization
Imports System.Text
Imports System.Collections
Public Class MainClass
Shared Sub Main()
Dim myform As Form = New FontSizesForm()
Application.Run(myform)
End Sub
End Class
Public Class FontSizesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
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.
Friend WithEvents listBox1 As System.Windows.Forms.ListBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.listBox1 = New System.Windows.Forms.ListBox()
Me.SuspendLayout()
"
"listBox1
"
Me.listBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.listBox1.Font = New System.Drawing.Font("Courier New", 14.0!)
Me.listBox1.IntegralHeight = False
Me.listBox1.ItemHeight = 21
Me.listBox1.Name = "listBox1"
Me.listBox1.Size = New System.Drawing.Size(560, 182)
Me.listBox1.TabIndex = 1
"
"FontSizesForm
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(560, 182)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.listBox1})
Me.Name = "FontSizesForm"
Me.Text = "FontSizesForm"
Me.ResumeLayout(False)
End Sub
#End Region
Private Function GetPixelsFromPoints(ByVal points As Single, ByVal dpi As Single) As Single
Return (dpi * points) / 72
End Function
Private Function GetInchesFromPoints(ByVal points As Single, ByVal dpi As Single) As Single
Return GetPixelsFromPoints(points, dpi) / dpi
End Function
Private Function GetPixelsFromDesignUnits(ByVal designUnits As Single, ByVal font As Font, ByVal dpi As Single) As Single
Dim scale As Single = GetPixelsFromPoints(font.Size, dpi) / font.FontFamily.GetEmHeight(font.Style)
Return designUnits * scale
End Function
Private Function GetPointsFromPixels(ByVal pixels As Single, ByVal dpi As Single) As Single
Return (pixels * 72) / dpi
End Function

Private Sub FontSizesForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim g As Graphics = Me.CreateGraphics()
listBox1.Items.Add(String.Format("Font.Name= {0}", Me.Font.Name))
listBox1.Items.Add(String.Format("Font.FontFamly.Name= {0}", Me.Font.FontFamily.Name))
listBox1.Items.Add(String.Format("Font.Size= {0} {1}s (specified Unit)", Me.Font.Size, Me.Font.Unit.ToString()))
listBox1.Items.Add(String.Format("Font.Height= {0} Pixels", Me.Font.Height))
listBox1.Items.Add(String.Format("Font.GetHeight= {0} Pixels", Me.Font.GetHeight(g)))
listBox1.Items.Add(String.Format("Font.SizeInPoints= {0} Points", Me.Font.SizeInPoints.ToString()))
listBox1.Items.Add(String.Format("GetPixels(Font.SizeInPoints)= {0} Pixels", GetPixelsFromPoints(Me.Font.SizeInPoints, g.DpiY)))
"listBox1.Items.Add(string.Format("GetInches(Font.SizeInPoints)= {0} Inches", GetInchesFromPoints(Me.Font.SizeInPoints, g.DpiY)))
listBox1.Items.Add(String.Format("Font.FontFamily.GetEmHeight= {0} Design Units", Me.Font.FontFamily.GetEmHeight(FontStyle.Regular)))
listBox1.Items.Add(String.Format("GetPixels(GetEmHeight)= {0} Pixels", GetPixelsFromDesignUnits(Me.Font.FontFamily.GetEmHeight(Me.Font.Style), Me.Font, g.DpiY)))
listBox1.Items.Add(String.Format("Font.FontFamily.GetLineSpacing= {0} Design Units", Me.Font.FontFamily.GetLineSpacing(FontStyle.Regular)))
listBox1.Items.Add(String.Format("GetPixels(GetLineSpacing)= {0} Pixels", GetPixelsFromDesignUnits(Me.Font.FontFamily.GetLineSpacing(Me.Font.Style), Me.Font, g.DpiY)))
listBox1.Items.Add(String.Format("Font.FontFamily.GetCellAscent= {0} Design Units", Me.Font.FontFamily.GetCellAscent(FontStyle.Regular)))
listBox1.Items.Add(String.Format("GetPixels(GetCellAscent)= {0} Pixels", GetPixelsFromDesignUnits(Me.Font.FontFamily.GetCellAscent(Me.Font.Style), Me.Font, g.DpiY)))
listBox1.Items.Add(String.Format("Font.FontFamily.GetCellDescent= {0} Design Units", Me.Font.FontFamily.GetCellDescent(FontStyle.Regular)))
listBox1.Items.Add(String.Format("GetPixels(GetCellDescent)= {0} Pixels", GetPixelsFromDesignUnits(Me.Font.FontFamily.GetCellDescent(Me.Font.Style), Me.Font, g.DpiY)))
listBox1.Items.Add(String.Format("Padding= {0} Design Units", Me.Font.FontFamily.GetLineSpacing(FontStyle.Regular) - (Me.Font.FontFamily.GetCellAscent(FontStyle.Regular) + Me.Font.FontFamily.GetCellDescent(FontStyle.Regular))))
listBox1.Items.Add(String.Format("GetPixels(Padding)= {0} Pixels", GetPixelsFromDesignUnits(Me.Font.FontFamily.GetLineSpacing(FontStyle.Regular) - (Me.Font.FontFamily.GetCellAscent(FontStyle.Regular) + Me.Font.FontFamily.GetCellDescent(FontStyle.Regular)), Me.Font, g.DpiY)))
End Sub
End Class

</source>

==Get Installed Font and display one by one==

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

public class MainClass
Shared Sub Main()
Dim form1 As Form = New FontViewer
Application.Run(form1)
End Sub
End Class

Public Class FontViewer
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
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.
Friend WithEvents StatusBar As System.Windows.Forms.StatusBar
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents lstFonts As System.Windows.Forms.ruboBox
Friend WithEvents label1 As System.Windows.Forms.Label
Friend WithEvents Panel As System.Windows.Forms.StatusBarPanel
Friend WithEvents lstSize As System.Windows.Forms.ruboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.StatusBar = New System.Windows.Forms.StatusBar()
Me.Panel = New System.Windows.Forms.StatusBarPanel()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.lstSize = New System.Windows.Forms.ruboBox()
Me.lstFonts = New System.Windows.Forms.ruboBox()
Me.label1 = New System.Windows.Forms.Label()
CType(Me.Panel, System.ruponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
"
"StatusBar
"
Me.StatusBar.Location = New System.Drawing.Point(0, 150)
Me.StatusBar.Name = "StatusBar"
Me.StatusBar.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.Panel})
Me.StatusBar.ShowPanels = True
Me.StatusBar.Size = New System.Drawing.Size(552, 20)
Me.StatusBar.TabIndex = 3
"
"Panel
"
Me.Panel.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
Me.Panel.Width = 536
"
"GroupBox1
"
Me.GroupBox1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.lstSize, Me.lstFonts, Me.label1})
Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(4, 4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(544, 40)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
"
"lstSize
"
Me.lstSize.DropDownWidth = 40
Me.lstSize.Location = New System.Drawing.Point(448, 12)
Me.lstSize.MaxDropDownItems = 20
Me.lstSize.Name = "lstSize"
Me.lstSize.Size = New System.Drawing.Size(68, 21)
Me.lstSize.TabIndex = 2
"
"lstFonts
"
Me.lstFonts.DropDownStyle = System.Windows.Forms.ruboBoxStyle.DropDownList
Me.lstFonts.DropDownWidth = 340
Me.lstFonts.Location = New System.Drawing.Point(100, 12)
Me.lstFonts.MaxDropDownItems = 20
Me.lstFonts.Name = "lstFonts"
Me.lstFonts.Size = New System.Drawing.Size(340, 21)
Me.lstFonts.TabIndex = 1
"
"label1
"
Me.label1.Location = New System.Drawing.Point(12, 16)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(80, 12)
Me.label1.TabIndex = 0
Me.label1.Text = "Choose Font:"
"
"FontViewer
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(552, 170)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.StatusBar, Me.GroupBox1})
Me.Name = "FontViewer"
Me.Text = "Font Viewer"
CType(Me.Panel, System.ruponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region

Private Sub lstFonts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFonts.SelectedIndexChanged
" Trigger a refresh and repaint.
If lstFonts.SelectedIndex <> -1 Then Me.Invalidate()
End Sub

Private Sub FontViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Fonts As New System.Drawing.Text.InstalledFontCollection()
Dim Family As FontFamily
For Each Family In Fonts.Families
lstFonts.Items.Add(Family.Name)
Next
Dim i As Integer
For i = 10 To 100
lstSize.Items.Add(i)
Next
lstSize.Text = "50"
End Sub
Private Sub FontViewer_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
If lstFonts.SelectedIndex <> -1 Then
Try
e.Graphics.DrawString(lstFonts.Text, New Font(lstFonts.Text, Val(lstSize.Text)), Brushes.Black, 10, 50)
StatusBar.Panels(0).Text = ""
Catch err As Exception
StatusBar.Panels(0).Text = err.Message
End Try
End If
End Sub
Private Sub lstSize_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstSize.SelectedIndexChanged
If Val(lstSize.Text) = 0 Then
lstSize.Text = "50"
End If
Me.Invalidate()
End Sub
End Class

</source>

==Installed Font Collection in Your System==

<source lang="vbnet">
Imports System
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Globalization
Imports System.Text
Imports System.Collections
Public Class MainClass
Shared Sub Main()
Dim myform As Form = New FontFamiliesForm()
Application.Run(myform)
End Sub
End Class

Public Class FontFamiliesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
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.
Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents installedFamiliesListBox As System.Windows.Forms.ListBox
Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents familiesListBox As System.Windows.Forms.ListBox
Friend WithEvents splitter1 As System.Windows.Forms.Splitter
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.groupBox2 = New System.Windows.Forms.GroupBox()
Me.installedFamiliesListBox = New System.Windows.Forms.ListBox()
Me.groupBox1 = New System.Windows.Forms.GroupBox()
Me.familiesListBox = New System.Windows.Forms.ListBox()
Me.splitter1 = New System.Windows.Forms.Splitter()
Me.groupBox2.SuspendLayout()
Me.groupBox1.SuspendLayout()
Me.SuspendLayout()
"
"groupBox2
"
Me.groupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.installedFamiliesListBox})
Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.groupBox2.Location = New System.Drawing.Point(139, 0)
Me.groupBox2.Name = "groupBox2"
Me.groupBox2.Size = New System.Drawing.Size(153, 310)
Me.groupBox2.TabIndex = 5
Me.groupBox2.TabStop = False
Me.groupBox2.Text = "Installed Font Families"
"
"installedFamiliesListBox
"
Me.installedFamiliesListBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.installedFamiliesListBox.IntegralHeight = False
Me.installedFamiliesListBox.Location = New System.Drawing.Point(3, 16)
Me.installedFamiliesListBox.Name = "installedFamiliesListBox"
Me.installedFamiliesListBox.Size = New System.Drawing.Size(147, 291)
Me.installedFamiliesListBox.TabIndex = 0
"
"groupBox1
"
Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.familiesListBox})
Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.groupBox1.Location = New System.Drawing.Point(3, 0)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(136, 310)
Me.groupBox1.TabIndex = 3
Me.groupBox1.TabStop = False
Me.groupBox1.Text = "Font Families"
"
"familiesListBox
"
Me.familiesListBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.familiesListBox.IntegralHeight = False
Me.familiesListBox.Location = New System.Drawing.Point(3, 16)
Me.familiesListBox.Name = "familiesListBox"
Me.familiesListBox.Size = New System.Drawing.Size(130, 291)
Me.familiesListBox.TabIndex = 0
"
"splitter1
"
Me.splitter1.Name = "splitter1"
Me.splitter1.Size = New System.Drawing.Size(3, 310)
Me.splitter1.TabIndex = 4
Me.splitter1.TabStop = False
"
"FontFamiliesForm
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 310)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.groupBox2, Me.groupBox1, Me.splitter1})
Me.Name = "FontFamiliesForm"
Me.Text = "FontFamiliesForm"
Me.groupBox2.ResumeLayout(False)
Me.groupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub FontFamiliesForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim family As FontFamily
For Each family In FontFamily.Families
If family.IsStyleAvailable(FontStyle.Bold) = False Then Exit For
familiesListBox.Items.Add(family.Name)
Next family
Dim installedFonts As InstalledFontCollection = New InstalledFontCollection()
For Each family In installedFonts.Families
installedFamiliesListBox.Items.Add(family.Name)
Next family
End Sub
End Class

</source>

==List Installed Fonts==

<source lang="vbnet">
Imports System
Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.Drawing
Public Class MainClass

Shared Sub Main(ByVal args As String())
" Get the installed fonts collection.
Dim installed_fonts As New InstalledFontCollection
" Get an array of the system"s font familiies.
Dim font_families() As FontFamily = installed_fonts.Families()
" Display the font families.
For Each font_family As FontFamily In font_families
Console.Write (font_family.Name & ", ")
Next font_family
End Sub
End Class

</source>

==Show Font dialog and get select font and font 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>

==Use Font dialog to change TextBox font==

<source lang="vbnet">
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Printing

Public Class MainClass
Shared Sub Main()
Dim form1 As Form = New Form1()
Application.Run(form1)
End Sub
End Class

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
"TextBox1
"
Me.TextBox1.Location = New System.Drawing.Point(14, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(264, 22)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "Change font!"
"
"Button1
"
Me.Button1.Location = New System.Drawing.Point(94, 208)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(120, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Change font!"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me.ClientSize = New System.Drawing.Size(320, 268)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.TextBox1})
Me.Name = "Form1"
Me.Text = "Changing the font of a text box"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDialog As New FontDialog()
If myDialog.ShowDialog() = DialogResult.OK Then
TextBox1.Font = myDialog.Font
End If
End Sub
End Class

</source>

VB.Net/GUI - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)