Form1.BorderStyle = 1
站在用戶的角度思考問題，與客戶深入溝通，找到東臺(tái)網(wǎng)站設(shè)計(jì)與東臺(tái)網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊(cè)、網(wǎng)頁(yè)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋東臺(tái)地區(qū)。
BorderStyle 屬性
vbFixedSingle 1 固定單邊框?？梢园刂撇藛慰颍瑯?biāo)題欄，“最大化”按鈕，和“最小化”按鈕。只有使用最大化和最小化按鈕才能改變大小。
2為sizeable
vbFixedDouble 3 固定對(duì)話框。可以包含控制菜單框和標(biāo)題欄，不能包含最大化和最小化按鈕，不能改變尺寸
=======================================
給你個(gè)簡(jiǎn)單的方法
把MaxButton改為False
Private Sub Form_Resize()
Static i As Integer
If i 0 Then MsgBox "不可改變窗體大小"
i = i + 1
End Sub
本文介紹了在VB NET中如何實(shí)現(xiàn)接受拖放的文件 即從資源管理器中拖放到應(yīng)用程序中的時(shí)候 自動(dòng)獲取拖放的文件 文中的例子是一個(gè)接受拖放文件顯示文件內(nèi)容的VB NET實(shí)例程序 引言
對(duì)于文本格式的文件 我們可以直接拖到記事本中就可以看到內(nèi)容 各種類型的圖片 拖到Photoshop中 就可以直接對(duì)其編輯 我們?nèi)绾卧赩B NET開發(fā)的程序也實(shí)現(xiàn)上述效果呢？
思路
我們知道 每一個(gè)Windows的應(yīng)用程序都有一個(gè)消息隊(duì)列 程序的主體接受系統(tǒng)的消息 然后分發(fā)出去（給一個(gè)form 或者一個(gè)控件） 接受者有相應(yīng)的程序來處理消息 在 NET的Form中 默認(rèn)情況下程序是不翻譯這些消息的 也就是說默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵 能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！
在 NET中 任何一個(gè)實(shí)現(xiàn)IMessageFilter 接口的類 可以添加到應(yīng)用程序的消息泵中 以在消息被調(diào)度到控件或窗體之前將它篩選出來或執(zhí)行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應(yīng)用程序的消息泵中
于是我們?cè)诔绦蚣虞d的時(shí)候 調(diào)用Application AddMessageFilter（Me） 然而 默認(rèn)情況下一個(gè)Form或者控件是不能接受拖放的文件的 我們調(diào)用一個(gè)WIN API DragAcceptFiles源碼天空 這個(gè)API可以設(shè)置對(duì)應(yīng)的控件是否能接受拖放的文件 然后可以用DragQueryFile查詢拖放到的文件列表 也就是拖放文件地具體路徑和文件名
代碼
Imports System Runtime InteropServices
Public Class Form
Inherits System Windows Forms Form
Implements IMessageFilter
API申明
Const WM_DROPFILES = H ? 拖放文件消息
DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）
End Sub
DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）
End Sub
DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer
End Function
Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load
Application AddMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt True）
End Sub
Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage
If m Msg = WM_DROPFILES Then
設(shè)置拖放的動(dòng)作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）
Dim i As Int
Dim *** As New System Text StringBuilder（ ）
Dim sFirstFileName As String 記錄第一個(gè)文件名
TextBox Clear（）
For i = To nfiles
DragQueryFile（m WParam ToInt i *** ）
If i = Then sFirstFileName = *** ToString
TextBox AppendText（ControlChars CrLf *** ToString）
Next
DragFinish（m WParam ToInt ） 拖放完成
顯示文件內(nèi)容
Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）
Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））
TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）
fs Close（）
sr Close（）
End If
Return False
End Function
Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）
If disposing Then
If Not （ponents Is Nothing） Then
ponents Dispose（）
End If
End If
Application RemoveMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt False）
MyBase Dispose（disposing）
End Sub
lishixinzhi/Article/program/net/201311/13043
控件是可以顯示在里面的，你只要加個(gè)label，把label的屬性設(shè)為visualble=fause就行。設(shè)置鼠標(biāo)經(jīng)過頭像的mouseHover和mouseLeave事件，當(dāng)mouseHover時(shí)label的屬性visualble=true，當(dāng)mouseLeave時(shí)label的屬性visualble=fause即可。窗體的鼠標(biāo)事件可以設(shè)置控件的cursor屬性，里面可以選擇許多種鼠標(biāo)圖形。 只要是正常的Form都可以改變窗體大小，但是無(wú)邊框的窗體只能用函數(shù)改變或者設(shè)置屬性，在debug后是不能改變的。拖動(dòng)窗體需要在窗體的load時(shí)間里面寫入當(dāng)鼠標(biāo)單擊不放時(shí)的事件即可，不難。
重慶分公司
重慶分公司
