鬼靈空間

VB显示透明FLASH效果   演示效果：      代码如下：公共声明区域Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPriv

<br />以下提供一套简单检测鼠标是否在使用的源码<br />Option Explicit<br />Private Type PointAPI<br />      X As Long<br />      Y As Long<br />End Type<br />Dim MousePos As PointAPI<br />Private Declare Function GetCursorPos Lib "user32" _<br />                          (lpPoi

<br />VB的尺寸单位是缇，而一般我们所使用的尺寸单位是像素或是毫米....<br />下面我介绍下最简单的重绘尺寸<br />首先新建一个窗体，在窗体上添加一个按钮，在添加一个PICTURE控件<br />其次在按钮的过程中键入<br />Me.Picture1.AutoRedraw = True<br /> Me.Picture1.Width = 3660   <br /> Me.Picture1.Height = 4860<br /> Me.Picture1.PaintPicture LoadPi

<br /><br />Private Sub Command1_Click()<br />    Dim strHtml$<br />    strHtml = getHtmlStr("http://219.133.49.157/getonline?81597651:")<br />    MsgBox IIf(InStr(strHtml, "1;") > 0, "在线", "不在线")<br />End Sub<br /> <br />Private Function getHtmlStr$(strUr

介于IPHONE手机游戏改编，增加演唱功能，目前没开通录像及说话