用VB.NET輕松制作特效窗體

體是Windows應用程序的基礎 新一代的開發(fā)工具Visual Basic Net為設計制作窗體提供了更多簡單而豐富的方法 無需再求助于復雜而易錯的API函數(shù) 我們就可以輕松制作多種特效窗體 輕松制作透明窗體VB NET可以輕松制作出任一透明度的窗體 我們只要在窗體的 屬性 窗口中 將 Opacity 屬性設置為一個介于 （完全透明）與 （完全不透明）之間的值就可以了 Dim frm As FrmTrans = New FrmTrans()frm Opacity = frm ShowDialog() 輕松制作始終位于最上層的窗體在VB 中 要制作一個始終位于最上層的窗體我們只能求助于令人頭痛的API函數(shù) 然而在 NET 中 我們只要簡單設置窗體的 TopMost 屬性就可實現(xiàn)同樣效果了！例如 Dim frm As frmTopMost = New frmTopMost()frm TopMost = Truefrm Show() 輕松制作不可見的窗體如果要編寫一個不讓別人發(fā)現(xiàn)的隱藏程序 制作不可見的窗體就是必須實現(xiàn)的第一步 窗體的可見性通常由 Visible 屬性控制 但是 如果希望 Windows 應用程序的主窗體在應用程序啟動時不可見 您將會發(fā)現(xiàn)將它的 Visible 屬性設置為 False 的方法無效 窗體總會自己顯示出來（這是因為 啟動窗體的生存期決定了應用程序的生存期） 雖然如此 我們還是可以通過簡單將應用程序的啟動設置為一個模塊 從而從窗體的生存期分出應用程序的生存期 輕松實現(xiàn)不可見的窗體 在下面這個例子中 窗體在特定的時間內自動隱藏 （ ）在 Visual Basic 中 右擊項目并選擇 添加模塊 以將模塊添加到 Windows 應用程序 （ ）在已添加的模塊（或類）內 創(chuàng)建可作為項目啟動對象的 Main 函數(shù) Sub main()Dim f As New Form ()f Visible = FalseWhile Hour(Date Now) 如果當前時間早于 點 窗體自動隱藏Application DoEvents()End Whilef ShowDialog()End Sub 輕松編寫托盤程序托盤程序作為一類特殊的窗體 其快捷圖標顯示在系統(tǒng)托盤中 窗體本身則隱藏不可見 在 NET之前版本的VB中編寫托盤程序是十分困難的 但是VB NET提供的新的NotifyIcon組件卻使VB初學者也能輕松編寫一個這樣的程序 新建 Windows應用程序 設置主窗體Opacity屬性為 FormBorderStyle屬性為None ShowInTaskbar屬性為False 這樣窗體將在啟動后隱藏 在窗體上放置一個NotifyIcon組件NotifyIcon 一個ContextMenu（彈出菜單）組件ContextMenu 并根據(jù)需要為ContextMenu 添加菜單項 設置NotifyIcon 的ICON屬性 這個圖標就是應用程序出現(xiàn)在系統(tǒng)托盤中的快捷圖標 設置NotifyIcon 的Text屬性為 VB NET托盤程序 這就是鼠標移動到托盤圖標時彈出的文字說明 設置NotifyIcon 的ContextMenu屬性為ContextMenu 也就是右鍵單擊快捷圖標時的彈出菜單為ContextMenu OK 按F 運行！幾乎不用編寫代碼 一個托盤程序就這樣輕松實現(xiàn)了 lishixinzhi/Article/program/net/201311/13831

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比舒城網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式舒城網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們，業(yè)務覆蓋舒城地區(qū)。費用合理售后完善，10余年實體公司更值得信賴。

VB.net里面怎么添加音樂

給你個 很簡單的

Public Class Form1

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

‘ 聲明函數(shù) mciexcute 加入庫 winmm.all

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call mciExecute("play E:\music\music\單身情歌.wma ")

'在 formload過程中 調用函數(shù) mciexcute 里面 是 文件 路徑

End Sub

End Class

VB.net 軟鍵盤 制作

Public Class Form2

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

AddHandler Label1.MouseEnter, AddressOf LabelMouseEnter

AddHandler Label2.MouseEnter, AddressOf LabelMouseEnter

AddHandler Label1.MouseLeave, AddressOf LabelMouseLeave

AddHandler Label2.MouseLeave, AddressOf LabelMouseLeave

AddHandler Label1.MouseDown, AddressOf LabelMouseDown

AddHandler Label2.MouseDown, AddressOf LabelMouseDown

End Sub

Private Sub LabelMouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)

Dim c As Label = DirectCast(sender, Label)

c.BackColor = Color.DodgerBlue

End Sub

Private Sub LabelMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Dim c As Label = DirectCast(sender, Label)

Form1.TextBox1.Text = c.Text

End Sub

Private Sub LabelMouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)

Dim c As Label = DirectCast(sender, Label)

c.BackColor = SystemColors.Control

End Sub

End Class

vb 要做一個模擬鋼琴的程序 但我不會使用ASCII。大神們怎么使用ASCII.

很簡單啊

給你個例子

Private Sub Form_Load()

Form1.KeyPreview = True

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '這里以回車鍵為例

MsgBox "你按下了回車鍵！", vbInformation + vbOKOnly, "提示"

End If

End Sub

'在這里13為ascii碼，去網(wǎng)上搜ascii碼表，所有鍵位都有的