Screen.TwipsPerPixelX是什么意思

frank888886 2003-09-29 08:50:18

Private Const LEFT_BUTTON As Byte = 1
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim blnLeftDown As Boolean
blnLeftDown = (Button And LEFT_BUTTON) > 0
Text1.Text = CLng(blnLeftDown)
End Sub
上面代码小生对blnLeftDown = (Button And LEFT_BUTTON) > 0不理解，忘高手指点

...全文

131 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2003-09-29

打赏
举报

回复

和Screen.TwipsPerPixelX有什么关系

(Button And LEFT_BUTTON) > 0

先进行位与运算（Button And LEFT_BUTTON），位与运算的结果再和0进行逻辑运算

MSSQL 2003-09-29

打赏
举报

回复

是否按下左键

限制鼠标移动区域程序(vb6.0源代码编写) Option Explicit Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Private Type RECT '用户自定义类型 Left As Long Top As Long Right As Long Bottom As Long End Type Dim mouse As RECT Private Sub Command1_Click() mouse.Left = Me.Left / Screen.TwipsPerPixelX mouse.Top = Me.Top / Screen.TwipsPerPixelY mouse.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX mouse.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY ClipCursor mouse End Sub Private Sub Command2_Click() mouse.Left = 0 mouse.Top = 0 mouse.Right = (Screen.Width) / Screen.TwipsPerPixelX mouse.Bottom = (Screen.Height) / Screen.TwipsPerPixelY ClipCursor mouse End Sub Private Sub Command3_Click() End End Sub

VB小程序 Private Sub Form_Paint() '使窗体始终置于最前面 If PtInRect(MyRect, MyPoint.X, MyPoint.Y) = 0 Then SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, _ Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _ Form1.Height \ Screen.TwipsPerPixelY, 0 End If End Sub

生成椭圆形窗体程序(vb6.0源代码编写) '函数声明 Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _ ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Long) As Long Private Sub Form_Load() Dim a, b As Long Dim w, h As Long w = Form1.Width / Screen.TwipsPerPixelX h = Form1.Height / Screen.TwipsPerPixelY a = CreateEllipticRgn(0, 0, w, h) b = SetWindowRgn(Me.hWnd, a, True) '设置椭圆形窗体 End Sub

VB仿360安全卫士漂亮的界面菜单，本实例只是借助美化的技术来模仿360菜单，人家360做出那种菜单可不是这样子哦~只是模仿啦！PS: 为了让窗体弹出的位置与鼠标，保持一定的距离，距离差控制在了5 * Screen.TwipsPerPixelX左右。退出窗体时，两个窗体都退出，不添加该句可能会引起Menu窗体没退，另一个特点值得学习：判断鼠标位置是否太靠近屏幕右边，是则从左边弹出窗体，否则从右边弹出窗体。

基于VB的文字动画特效代码Private Sub TextEffect( _ ByVal sText As String, _ ByVal lX As Long, ByVal lY As Long, _ Optional ByVal bLoop As Boolean = False, _ Optional ByVal lStartSpacing As Long = 128, _ Optional ByVal lEndSpacing As Long = -1, _ Optional ByVal oColor As OLE_COLOR = vbWindowText _ ) Dim i As Long Dim x As Long Dim lLen As Long Dim lHDC As Long Dim hBrush As Long '定义各种变量 Static tR As RECT Dim iDir As Long Dim bNotFirstTime As Boolean Dim lTime As Long Dim lIter As Long Dim bSlowDown As Boolean Dim lCOlor As Long Dim bDoIt As Boolean iDir = -1 i = lStartSpacing '为变量赋值 tR.left = lX: tR.tOp = lY: tR.Right = lX: tR.Bottom = lY OleTranslateColor oColor, 0, lCOlor hBrush = CreateSolidBrush(GetSysColor(COLOR_BTNFACE)) lLen = Len(sText) lHDC = Me.hdc SetTextColor lHDC, lCOlor '设置文字颜色 bDoIt = True Do While m_bDoEffect And bDoIt lTime = timeGetTime If (i < -3) And Not (bLoop) And Not (bSlowDown) Then bSlowDown = True iDir = 1 lIter = (i + 4) End If If (i > 128) Then iDir = -1 If Not (bLoop) And iDir = 1 Then If (i = lEndSpacing) Then bDoIt = False Else lIter = lIter - 1 If (lIter <= 0) Then i = i + iDir lIter = (i + 4) End If End If Else i = i + iDir End If FillRect lHDC, tR, hBrush '调用FillRect函数 x = 32 - (i * lLen) SetTextCharacterExtra lHDC, i DrawText lHDC, sText, lLen, tR, DT_CALCRECT '调用API函数DrawText tR.Right = tR.Right + 4 If (tR.Right > Me.ScaleWidth \ Screen.TwipsPerPixelX) Then tR.Right = Me.ScaleWidth \ Screen.TwipsPerPixelX DrawText lHDC, sText, lLen, tR, DT_LEFT Me.Refresh '窗体刷新 Do DoEvents '后台运行 Loop While (timeGetTime - lTime) < 20 Loop DeleteObject hBrush End Sub

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章