@H_404_0@author：作者 冰戈--真诚的平凡
目录
1. 如何设置一个From的边界
@H_404_0@2. 如何建立一个透明的From
@H_404_0@3. 如何设置窗体在屏幕中的位置
@H_404_0@4. 如何使最小化和最大化按钮不可用
@H_404_0@5. 如何使一个窗体不见
@H_404_0@6. 如何设置使窗体成为非矩形的.
@H_404_0@7. 如何使一个窗体在屏幕的最顶端.
@H_404_0@8. 如何显示一个Model和非Model的窗体
@H_404_0@9. 如何制作一个MDI的窗体
@H_404_0@10. 如何将你的窗体不显示在任务条上.
@H_404_0@11. 如何制作一个带启动屏幕的窗体.
@H_404_0@12. 如何使你的窗体TrayIcon.
@H_404_0@13. 如何修改控制窗体的尺寸和长宽尺寸.
@H_404_0@14. 如何建立一个Windows Explorer风格的窗体.
@H_404_0@15. 如何设置初始的启动窗体
@H_404_0@16. 如何建立一个有背景图像的窗体
==========================================================================================
@H_404_0@1. 如何设置一个From的边界
@H_404_0@form总共有七种不同的边界风格让你设置,你可以在设计时刻也可以运行时通过代码动态的来设置它.这七种边界风格分别是:
@H_404_0@none (System.Windows.Forms.FormBorderStyle.None )
@H_404_0@fixed 3D (System.Windows.Forms.FormBorderStyle.Fixed3D)
@H_404_0@fixed Dialog (System.Windows.Forms.FormBorderStyle.FixedDialog)
@H_404_0@fixed Single(System.Windows.Forms.FormBorderStyle.FixedSingle)
@H_404_0@fixed Tool Window(System.Windows.Forms.FormBorderStyle.FixedToolWindow)
@H_404_0@sizable(system.windows.forms.formborderstyle.sizable)
@H_404_0@sizable Tool Window
@H_404_0@(system.windows.forms.formborderstyle.sizabletoolwindow)
@H_404_0@在设计方式下在vs.net IDE的 Properties window中设置FormBorderStyle属性就可以了.
@H_404_0@在运行方式下你可以用代码来完成:
@H_404_0@dlgbx1.formborderstyle = System.Windows.Forms.FormBorderStyle.FixedDialog
这七种边界类型VB6中就有,没有什么大的变化,运行方式下你需要对照不同的枚举变量进行设置.
@H_404_0@2. 如何建立一个透明的From
@H_404_0@你可以通过两种方法在设计时刻和运行时刻来做到这一点.
@H_404_0@设计时刻,你可以在vs.net IDE的 Properties window,设置Opacity 属性达到这个效果.这个值从0.0到1.0 . 0表示完全透明,1.0表示完全不透明.
@H_404_0@运行时刻你可以用下面的编码设置窗体的opactiy属性来做到.具体:
@H_404_0@frmtransparentform.opacity = 0.76; ( C# )
@H_404_0@看得出现在很简单了,你已经不用再去了解什么alpha变量了.透明始终只是一种效果,不要滥用它.
@H_404_0@3. 如何设置窗体在屏幕中的位置
@H_404_0@你可以设置窗体的startposition属性,vs.net一般给你一个保守的选项” WindowsDefaultLocation“ 这样系统在Load窗体时将根据用户当前的计算机设置来确定一个值,你也可以在设计时将它改成另一个值”Center”.
@H_404_0@如果你一定要在设计方式下确定窗体在屏幕出现的位置你可以先设置startposition为manual,然后设置location的x和y的值.
@H_404_0@运行时用代码实现似乎更简洁一些:
@H_404_0@ Form1.Location = new Point (100,100) ( VB.NET )
当然你也可以分别修改的Location的X和Y值,对应的是窗体的Left和Top属性,比如:
@H_404_0@form1.left += 200 ( VB.NET )
@H_404_0@form1.top -= 100 ( VB.NET )
@H_404_0@另外一个属性将也将影响窗体在屏幕的位置:desktoplocation 这个属性主要是在你设置窗体的位置相对于任务栏时非常实用(当你把任务条放在屏幕的顶或左边时,其实相应改动了desktop coordinates (0,0)),你可以这样设置这个不出现在设计属性窗口中的属性,
@H_404_0@form1.desktoplocation = new Point (100,100)
@H_404_0@窗体在屏幕中的位置将主要取决于各自用户具体的硬件和设置情况,所以保守的作法是用默认的” WindowsDefaultLocation”或 ”Center”;专业的作法是自己先获取系统的设置然后编码动态计算后进行设置,不然很容易在屏幕上找不到你的窗体.
@H_404_0@4. 如何使最小化和最大化按钮不可用
@H_404_0@在设置窗体的form.minimizeBox和form.maximizeBox 当为True时表示显示,False时表示不可.用编程方式见下:
@H_404_0@frmmaxmin.minnimizeBox = False ( VB.NET)
@H_404_0@frmmaxmin.maxmnimizeBox = True ( VB.NET )
@H_404_0@5. 如何使一个窗体不见
@H_404_0@我想最直接的办法是你调用 Hide()方法来做到这一点.不过我想提供另一种方法,看了之后你会获得一些其它的启发. ( VB.NET )
@H_404_0@ Private Const WS_EX_TOOLWINDOW As Int32 = &H80
@H_404_0@ Private Const WS_POPUP As Int32 = &H80000000
@H_404_0@ Private Const WS_VISIBLE As Int32 = &H10000000
@H_404_0@ Private Const WS_SYSMENU As Int32 = &H80000
@H_404_0@ Private Const WS_MAXIMIZEBox As Int32 = &H10000
@H_404_0@ Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
@H_404_0@ Get
@H_404_0@ Dim cp As System.Windows.Forms.CreateParams
@H_404_0@ cp = MyBase.CreateParams
@H_404_0@ cp.ExStyle = WS_EX_TOOLWINDOW
@H_404_0@ cp.Style = WS_POPUP Or WS_VISIBLE Or WS_SYSMENU Or WS_MAXIMIZEBox
@H_404_0@ cp.Height = 0
@H_404_0@ cp.Width = 0
@H_404_0@ Return cp
@H_404_0@ End Get
@H_404_0@ End Property
@H_404_0@ 原来是把Height 和Width都设置成0 ，我想这种方式和Hide()调用的底层可能是不同的。
@H_404_0@6. 如何设置使窗体成为非矩形的.
@H_404_0@这个问题我想我提供的不是最专业的作法,至少它还不能达到我期望的那样,也就是说它在某些事件中它还会变回矩形.但至少我可以告诉你：如果试图调用原来的win32’s API SetWindowRng是不行的,我曾如此的尝试过.现在你可能需要知道有关窗体的Region属性
@H_404_0@ ' // ( VB.NET )
@H_404_0@ Public Sub SetWindowRegion()
@H_404_0@ Dim FormPath As System.Drawing.Drawing2D.GraphicsPath
@H_404_0@ Dim Reg As Drawing.Region
@H_404_0@ Dim lRet As Long
@H_404_0@ FormPath = New Drawing2D.GraphicsPath()
@H_404_0@ FormPath.AddEllipse(New Rectangle(0,250,120))
@H_404_0@ Me.Region = New Region(FormPath)
@H_404_0@ End Sub
@H_404_0@ Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
@H_404_0@ Me.Region = Nothing
@H_404_0@ SetWindowRegion()
@H_404_0@ End Sub
@H_404_0@ Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
@H_404_0@ Me.Region = Nothing
@H_404_0@ SetWindowRegion()
@H_404_0@ End Sub
@H_404_0@7. 如何使一个窗体在屏幕的最顶端.
@H_404_0@这是很实用的一个功能,现在你不用在调用其它api了,只用设置topmost 属性为True就可以了.对于这个属性在设计时刻和运行时刻都是可以进行修改的.代码方式:
@H_404_0@ myTopForm.TopMost = True ( VB.NET)
@H_404_0@8. 如何显示一个Model和非Model的窗体
@H_404_0@model和modeless的窗体主要将取决于你的应用,最多的是用在显示对话框.当你需要model的窗体时你调用myform. ShowDialog而非Model的调用MyForm.Show,对于ShowDialog有一个可选参数ower可以让你为一个窗体建立父子关系.比如:
@H_404_0@' Visual Basic
Private Sub mnuAbout_Click(…args…)
Dim f As New FormOption
f.ShowDialog Me
End Sub
有一点需要注意的是对于ShowDialog来说,当执行到这一句,窗体显示,但这之后的代码将不会执行,只到窗口关闭之后才继续执行,而对于Show来说是即时的,显示窗体之后将立即执行下面的代码.
9. 如何制作一个MDI的窗体
@H_404_0@1. 建立一个新的Windows Application项目
@H_404_0@2. 分别加入两个窗体Form1 、Form2
@H_404_0@3. 设置Form1的IsMdiContainer属性为True。使它成为MDI主窗体。
@H_404_0@4. 在Form2中加入一个RichTextBox控件，并设置Dock为：Fill
@H_404_0@5. 在Tools 窗体中拖一个MainMenu到窗体Form1，然后建立一个菜单File|Windows|Help三个菜单项，File中包括New、Exit菜单项；Windows中包括Cascade、Horizontal等。
@H_404_0@6. 设置Windows菜单项的MdiList属性＝True， 这样每一个MDI子窗口将自动加在Windows菜单项下面。
@H_404_0@7. 双击New菜单项，然后加入以下代码：
@H_404_0@ private void menuNew_Click(object sender,System.EventArgs e)
@H_404_0@ {
@H_404_0@ Form2 NewMdiChild ;
@H_404_0@ NewMdiChild = new Form2() ;
@H_404_0@ NewMdiChild.MdiParent = this ;
@H_404_0@ NewMdiChild.Show() ;
@H_404_0@ }
@H_404_0@8. 在Windows的Cascade等菜单项中加入以下代码：
@H_404_0@ private void menuWindowCasca_Click(object sender,System.EventArgs e)
@H_404_0@ {
@H_404_0@ this.LayoutMdi( MdiLayout.Cascade) ;
@H_404_0@
@H_404_0@ }
@H_404_0@另外还有以下常用的:
@H_404_0@this.layoutmdi(mdilayout.tilehorizontal);
@H_404_0@this.layoutmdi(mdilayout.tilevertical);
@H_404_0@9. F5运行。
@H_404_0@最终版的vs.net 不知是否会有一个通用的模板，不过用完全手工的方式产生一个MDI的窗口，显得有些繁琐，不如VS.NET的IDE方式下那么简洁。
@H_404_0@10. 如何将你的窗体不显示在任务条上.
@H_404_0@当窗体的边界风格是tools Window时它都不会出现在任务条上的.另外上面标题5中介绍的方法不仅窗体看不见,也不会出现在任务条上.
@H_404_0@ 如果你现在在Dotnet的世界，这件事也变的简单，任何的Winform窗体现在都有ShowInTaskbar属性，所以你只要简单的设置这个属性就可以了。同样你可以选择在属性窗口中将ShowInTaskbar由True改为False。或是用代码的方式：
@H_404_0@ MyTaskBarFrm.ShowInTaskbar = false ; ( C# )
@H_404_0@11. 如何制作一个带启动屏幕的窗体.
@H_404_0@需要你准备两个winform的窗体，一个叫它：splashscreen，把它做成一个漂亮的窗体。然后你需要一个主窗体叫它：form1吧，然后在这个窗体加入下面的代码。
@H_404_0@ // ( C# )
@H_404_0@ protected override void OnLoad ( System.EventArgs e )
@H_404_0@ {
@H_404_0@ //make load take a long time
@H_404_0@ Thread.Sleep(2000);
@H_404_0@ base.OnLoad(e);
@H_404_0@ }
@H_404_0@然后在main中加入这样的代码：
@H_404_0@ [STAThread]
@H_404_0@ static void Main()
@H_404_0@ {
@H_404_0@ SplashScreen splashForm = new SplashScreen();
@H_404_0@ splashForm.Show();
@H_404_0@ Form1 mainForm = new Form1() ;
@H_404_0@ mainForm.Load += new EventHandler(splashForm.MainScreen_Load);
@H_404_0@ Application.Run(mainForm);
@H_404_0@ }
@H_404_0@不要忘了加上对threading的引用： using System.Threading;
@H_404_0@12. 如何使你的窗体TrayIcon.
@H_404_0@实现这个功能你可以运用notifyicon控件来达到，从tools Windows中将NotifyIcon拖到你的窗体上然后在下面的事件加入如下代码，F5。
@H_404_0@
@H_404_0@ ' // VB.NET
@H_404_0@ Private mIconA As Icon = New Icon("Icon1.ico")
@H_404_0@ Private mIconB As Icon = New Icon("Icon2.ico")
@H_404_0@ Private mIconDisplayed As Boolean
@H_404_0@
@H_404_0@ Public Sub New()
@H_404_0@ MyBase.New
@H_404_0@ Form1 = Me
@H_404_0@ 'This call is required by the Win Form Designer.
@H_404_0@ InitializeComponent
@H_404_0@ 'TODO: Add any initialization after the InitializeComponent() call
@H_404_0@
@H_404_0@ 'this form isn't used directly so hide it immediately
@H_404_0@ Me.Hide()
@H_404_0@
@H_404_0@ 'setup the tray icon
@H_404_0@ Initializenotifyicon()
@H_404_0@ End Sub
@H_404_0@
@H_404_0@ Private Sub Initializenotifyicon()
@H_404_0@ 'setup the default icon
@H_404_0@ notifyicon = New System.Windows.Forms.NotifyIcon()
@H_404_0@ NotifyIcon.Icon = mIconA
@H_404_0@ NotifyIcon.Text = "Right Click for the menu"
@H_404_0@ NotifyIcon.Visible = True
@H_404_0@ mIconDisplayed = True
@H_404_0@ 'Insert all MenuItem objects into an array and add them to
@H_404_0@ 'the context menu simultaneously
@H_404_0@ Dim mnuItms(3) As MenuItem
@H_404_0@ mnuItms(0) = New MenuItem("Show Form...",New EventHandler(AddressOf Me.ShowFormSelect))
@H_404_0@ mnuItms(0).DefaultItem = True
@H_404_0@ mnuItms(1) = New MenuItem("Toggle Image",New EventHandler(AddressOf Me.ToggleImageSelect))
@H_404_0@ mnuItms(2) = New MenuItem("-")
@H_404_0@ mnuItms(3) = New MenuItem("Exit",New EventHandler(AddressOf Me.ExitSelect))
@H_404_0@ Dim notifyiconMnu As ContextMenu = New ContextMenu(mnuItms)
@H_404_0@ notifyicon.ContextMenu = notifyiconMnu
@H_404_0@ End Sub
@H_404_0@ Public Sub ShowFormSelect(ByVal sender As Object,ByVal e As System.EventArgs)
@H_404_0@ 'Display the settings dialog
@H_404_0@ Dim SettingsForm As New SettingsForm()
@H_404_0@ SettingsForm.ShowDialog()
@H_404_0@ End Sub
@H_404_0@ Public Sub ToggleImageSelect(ByVal sender As Object,ByVal e As System.EventArgs)
@H_404_0@ 'called when the user selects the 'Toggle Image' context menu
@H_404_0@ 'determine which icon is currently visible and switch it
@H_404_0@ If mIconDisplayed Then
@H_404_0@ 'called when the user selects the 'Show Form' context menu
@H_404_0@ NotifyIcon.Icon = mIconB
@H_404_0@ NotifyIcon.Text = "Sad"
@H_404_0@ mIconDisplayed = False
@H_404_0@ Else
@H_404_0@ NotifyIcon.Icon = mIconA
@H_404_0@ NotifyIcon.Text = "Happy"
@H_404_0@ mIconDisplayed = True
@H_404_0@ End If
@H_404_0@ End Sub
@H_404_0@ Public Sub ExitSelect(ByVal sender As Object,ByVal e As System.EventArgs)
@H_404_0@ 'called when the user selects the 'Exit' context menu
@H_404_0@ 'hide the tray icon
@H_404_0@ NotifyIcon.Visible = False
@H_404_0@ 'close up
@H_404_0@ Me.Close()
@H_404_0@ End Sub
@H_404_0@ 'Form overrides dispose to clean up the component list.
@H_404_0@ Public Overloads Overrides Sub Dispose()
@H_404_0@ MyBase.Dispose()
@H_404_0@ components.Dispose()
@H_404_0@ End Sub
@H_404_0@ 图标文件你自己准备了，如果成功你可以看到有关NotifyIcond的各种功能了。
@H_404_0@13. 如何修改控制窗体的尺寸和长宽尺寸.
@H_404_0@主要是修改winform的size,Width 和Height属性。同样它们都是可以在设计和运行时刻进行修改和设置。
@H_404_0@form1.size = New System.Drawing.Size(100,100) ( VB.NET )
@H_404_0@form1.width += 100 (VB.NET )
@H_404_0@form1.height -= 20 (VB.NET )
@H_404_0@14. 如何建立一个Windows Explorer风格的窗体.
@H_404_0@1.建立一个新的windows Application
@H_404_0@2.从toolBox窗口拖一个treeview控件、、一个splitterk控件、一个listview控件，分别在属性窗口中设置treeview的dock属性为：：left；设置listview控件的dock属性为：fill
@H_404_0@3： F5 运行
@H_404_0@15. 如何设置初始的启动窗体
@H_404_0@无论是c#还是visual Basic的Winform项目中你都可以在Solution Explorer窗口中右键你的Project，然后选择属性，从你Project的属性页中选择你启动的窗体或是Main()方法。
@H_404_0@有些不同的是在目前的vs.net Beta2中C#项目会自动产生Main() 方法，Visual Basic.Net 的项目中你必须自己添加Main()代码，C#中你可以将Form1改成任何你可以启动的窗体名：
@H_404_0@ // ( C# )
@H_404_0@ static void Main()
@H_404_0@ {
@H_404_0@ Application.Run(new Form1());
@H_404_0@ }
@H_404_0@16. 如何建立一个有背景图像的窗体
@H_404_0@现在的winform中所有的窗体都有一个backgroundimage属性，只用对它赋值就可以了。普通窗体可以在运行模式也可以在运行模式完成这个设置。比如在initializecomponent()或窗体的构造函数中加入这样的代码：
@H_404_0@this.backgroundimage = new Bitmap("C://DotNetApp//WinForm//Tile.bmp" ) ;
@H_404_0@ 对于MDI的主窗体要麻烦一些，在VS.NET的IDE窗体中，当你设置完IsMdiContainer属性为True后，你需要查看一下InitializeComponent()中是否有这样的代码 ( C# )：
@H_404_0@ this.mdiClient1.Dock = System.Windows.Forms.DockStyle.Fill;
@H_404_0@ this.mdiClient1.Name = "mdiClient1";
@H_404_0@或是在窗口的属性窗口组合框中看到mdiclient1 System.Windows.Forms.mdiClient.这就是主MDI窗口，不过我没有在dotnet的文档中找到任何有关System.Windows.Forms.mdiClient的说明。然后你可以在InitializeComponent()或窗体的构造函数中加入这样的代码( C# )：
@H_404_0@this.mdiclient1.backgroundimage = new Bitmap("C://DotNetApp//WinForm//Tile.bmp" ) ;
@H_404_0@ 网上有一个ImageView的例子，里面演示了给MDI主窗体中背景上加入一行logo文字的方法，这样使你的MDI窗体看起来很商业化，具体的你可以这样做：
@H_404_0@1． 先在VS.NET 自动产生代码的InitializeComponent中看是否有这样的语句( C# )：
@H_404_0@this.controls.addrange(new System.Windows.Forms.Control[] {this.mdiClient1});
@H_404_0@ 又是这个mdiClient （haha）
@H_404_0@2． 建立以下两个函数用于显示这个logo字符：
@H_404_0@// ( C# )
@H_404_0@ protected void Mdi_OnPaint ( Object s,System.Windows.Forms.PaintEventArgs e )
@H_404_0@ {
@H_404_0@ Control c = (Control)s;
@H_404_0@
@H_404_0@ Rectangle r1 = c.ClientRectangle;
@H_404_0@ r1.Width -= 4;
@H_404_0@ r1.Height -= 4;
@H_404_0@ Rectangle r2 = r1;
@H_404_0@ r2.Width -= 1;
@H_404_0@ r2.Height -= 1;
@H_404_0@ Font f = new Font("Tahoma",8);
@H_404_0@ String str = "MyWinform.NET ?2001 MyWinform Application V1.0";
@H_404_0@ StringFormat sf = new StringFormat();
@H_404_0@ sf.Alignment = StringAlignment.Far;
@H_404_0@ sf.LineAlignment = StringAlignment.Far;
@H_404_0@ e.Graphics.DrawString(str,f,new SolidBrush(SystemColors.ControlDarkDark),r1,sf);
@H_404_0@ e.Graphics.DrawString(str,new SolidBrush(SystemColors.ControlLight),r2,sf);
@H_404_0@ }
@H_404_0@ protected void Mdi_OnResize ( Object s,System.EventArgs e )
@H_404_0@ {
@H_404_0@
@H_404_0@ Control c = (Control)s;
@H_404_0@ c.Invalidate();
@H_404_0@ }
@H_404_0@3． 在InitializeComponent()或窗体的构造函数中加入这样的代码：
@H_404_0@( C# )
@H_404_0@ this.Controls[0].Paint += new PaintEventHandler( Mdi_OnPaint ) ;
@H_404_0@ this.Controls[0].Resize += new EventHandler( Mdi_OnResize ) ;
@H_404_0@ 注意将它加在InitializeComponent()后面或是在InitializeComponent函数中this.Controls.AddRange函数之后。
原文链接：/vb/262728.html
