非常簡單.

網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)!專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、小程序設(shè)計、集團企業(yè)網(wǎng)站建設(shè)等服務項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了溫州免費建站歡迎大家使用!
先用 GetForegroundWindow 來獲取當前活動窗口的句柄,然后用 GetWindowText 來獲得這個句柄的標題..就可以了,
我給你寫了個代碼 你運行看下就明白了..
在窗體上創(chuàng)建一個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控件,取名叫l(wèi)able1,
那么實現(xiàn)方式就是:
private
sub
form_load()
lable1.text="今天天氣很好";
end
sub
你可以試試
繪制和數(shù)據(jù)分離,就是說,Paint 事件永遠是用來繪制的,具體繪制什么東西(也就是繪制的數(shù)據(jù),如半徑為4的圓),有數(shù)據(jù)決定,MouseClick 可以更改一些參數(shù),然后由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 事件中去調(diào)用Form 的 Paint 事件,那么參數(shù)要如何傳遞?
參數(shù)是個全局變量,類似上面的r、x、y等,不是由e傳過去的,
上述代碼是c#的,vb.net和c#一樣,都是用的fcl類庫,你改一下就可以了,
VB.NET不能本身引用其默認實例 ,即是呢Form1本身是個類,在類內(nèi)在實例化自已就會報錯,所以設(shè)置了成員屬性Me.text來設(shè)置窗口文本
網(wǎng)站名稱:vb.net繪制窗體標題,vb如何修改窗體名稱 窗體的標題
當前網(wǎng)址:http://chinadenli.net/article30/dseeopo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計、定制網(wǎng)站、全網(wǎng)營銷推廣、App開發(fā)、關(guān)鍵詞優(yōu)化、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)