JS在线台球游戏

电脑上可以玩哦,试试吧[f]61[/f]

VB文本编码转换源码

[f]60[/f]

VB 超简单的屏幕截图代码

双击窗体截屏Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Form_DblClick() '双击窗体截图 keybd_event vbKeySnapshot, 0&, 0&, 0& DoEvents Me.Picture = Clipboard.GetData(vbCFBitmap) SavePicture Me.Picture, "c:\test.bmp" '保存图片End Sub