非常簡單.
網站建設哪家好,找創新互聯!專注于網頁設計、網站建設、微信開發、小程序設計、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了溫州免費建站歡迎大家使用!
先用 GetForegroundWindow 來獲取當前活動窗口的句柄,然后用 GetWindowText 來獲得這個句柄的標題..就可以了,
我給你寫了個代碼 你運行看下就明白了..
在窗體上創建一個timer控件(用來隨時檢測活動窗口的標題),然后復制下面的代碼 運行 就看到了...哥們,最好追加點分哦~~ o(∩_∩)o...~~
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Me.Width = Screen.Width / 2
End Sub
Private Sub Timer1_Timer()
Dim hd As Long, tt As String
tt = Space(255)
hd = GetForegroundWindow
GetWindowText hd, tt, 256
Cls
Print "活動窗口標題是 " tt
End Sub
你可以在窗體上放一個lable控件,取名叫lable1,
那么實現方式就是:
private
sub
form_load()
lable1.text="今天天氣很好";
end
sub
你可以試試
繪制和數據分離,就是說,Paint 事件永遠是用來繪制的,具體繪制什么東西(也就是繪制的數據,如半徑為4的圓),有數據決定,MouseClick 可以更改一些參數,然后由Paint 繪制:
MouseClick 事件里,重繪窗體,即:
int r = 0, x = 0, y = 0;
private void Form1_MouseClick(object sender, MouseEventArgs e)
{
r = 10;
x = e.X;
y = e.Y;
this.Invalidate();
}
private void Form1_Paint(object sender, PaintEventArgs e)
{
// 繪制一個r半徑圓
e.Graphics.DrawEllipse(new Pen(Color.Red), x, y, r, r);
}
補充:
在 MouseClick 事件中去調用Form 的 Paint 事件,那么參數要如何傳遞?
參數是個全局變量,類似上面的r、x、y等,不是由e傳過去的,
上述代碼是c#的,vb.net和c#一樣,都是用的fcl類庫,你改一下就可以了,
VB.NET不能本身引用其默認實例 ,即是呢Form1本身是個類,在類內在實例化自已就會報錯,所以設置了成員屬性Me.text來設置窗口文本
網站名稱:vb.net繪制窗體標題,vb如何修改窗體名稱 窗體的標題
當前網址:http://m.kartarina.com/article30/dseeopo.html
成都網站建設公司_創新互聯,為您提供網站設計、定制網站、全網營銷推廣、App開發、關鍵詞優化、小程序開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯