作者sHiNJi301 (Makoto)
看板Visual_Basic
标题[.NET] 呼叫Windows API的问题
时间Fri Apr 17 03:05:51 2009
请输入专案类型(网站专案或者应用程式专案)：应用程式专案
我想在萤幕的左上角显示时间
而且不会被全萤幕游戏盖过去
目前找到的方法是要先getDC在用drawtext等API对该DC写字
可是我写下去不是没反应
要不然就是说是保护的记忆体，写不进去
请问有哪位高手可以解决这个问题0.0
以下是我的程式码
'API宣告
Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc
As Long, ByVal lpStr As String, ByVal nCount As Long, ByVal lpRect As RECT,
ByVal wFormat As Long) As Long
'宣告部份
Private Structure RECT
Dim Left As Long
Dim Top As Long
Dim Right As Long
Dim Bottom As Long
End Structure
Private Const DT_CENTER = &H1
Private Const DT_WORDBREAK = &H10
'主程式码部分
dc = GetDC(Me.Handle)
Label1.Text = dc.ToString
Dim lSuccess As Long
Dim sPrintText As String
Dim MyRect As RECT
MyRect.Left = 0
MyRect.Right = 240
MyRect.Top = 180
MyRect.Bottom = 480
sPrintText = "Print this text"
lSuccess = DrawText(dc, sPrintText, Len(sPrintText), MyRect,
DT_CENTER Or DT_WORDBREAK)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.166.213.157