VISUAL BASIC的土地
百度空间 | 百度首页 
 
最新动态
 
   
 
文章列表
 
2009年08月21日 星期五 17:55

'先添加clsCard.Cls

'以下是Form1.Frm

'基本代码

Option Explicit
Dim cd As clsCard

Private Sub Form_Load()
Set cd = New clsCard
cd.cdhdc = hdc
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set cd = Nothing
End Sub

'替换代码

Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 0 To 3

 
2009年08月20日 星期四 19:59

clsCard.Cls

Option Explicit
'==========================
'类模块名称: clsCard.Cls
'方法:
'cdtDrawBack    画背景
'cdtDrawBkGrnd 画牌虚框
'cdtDrawCard    画牌
'cdtDrawCardInvert 画反转牌
'cdtDrawCircle 画“圈”牌
'cdtDrawColored 画颜色牌
'cdtDrawRect    画矩形
'cdtDrawRectAndBkG

 
2009年08月15日 星期六 17:34

下载

鸣谢

张韶英

 
2009年08月08日 星期六 17:54

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA

 
2009年08月05日 星期三 18:57
 
2009年08月03日 星期一 17:56

GetRndArray

Option Explicit
Dim A()
Private Function GetRndArray(SourceArray, GetNum As Integer) As Single()
'自定义函数,功能:从源数组里面随机获取指定个数的数字,返回数组。
'参数:SourceArray-源数组;GetNum-获取随机数字的个数。
'返回值:一个数组。
Randomize
Dim Dest() As Single, i As Integer, r As Integer, SrcNum As In

 
2009年07月29日 星期三 12:04

SetForegroundWindow

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
'hwnd-要设置为最前

 
2009年07月28日 星期二 17:16

GetDesktopWindow

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
'没有参数,返回值为桌面窗口句柄
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long

 
2009年07月19日 星期日 11:33

'因为窗体的标题栏有高度,所以需要使用获取客户区大小的函数。

Option Explicit
Dim R As RECT
Dim Ratio As Single
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function

 
2009年07月19日 星期日 10:41

GetWindowRect

Option Explicit
Dim hW As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'

 
     
 
留言板
 
145
过来瞧瞧
2009年11月07日 星期六 17:47| 回复
 
144
帮个忙看下
我想实现这样一种功能,窗口上有个浏览按钮,将任意一个EXCEL文件浏览进去,然后有个计算按钮可以计算某一列的数字之和。我想知道的是那个浏览功能怎么实现,浏览之后对那个EXCEL文件进行的操作的时候路径应该怎么表示。不需要那种对固定位置的文件进行操作的,重在那个浏览功能。

地址:http://zhidao.baidu.com/question/121711771.html
2009年10月17日 星期六 01:12| 回复
 
143
回复房恩宏:我??那估计百度出毛病了,要不就是自动登录……
2009年10月16日 星期五 13:29| 回复
 
142
下午14:49分,居然在线。
2009年10月15日 星期四 14:49| 回复
 
141
挺乱,没整理……看着好得就都塞进来了。
2009年10月05日 星期一 16:09| 回复
 
 
姓 名:    注册
网 址: (选填)
内 容:
验证码: 请点击后输入四位验证码,字母不区分大小写
      
   
 
 
日历
 
     
 
个人档案
 
 ARTERIOSCLEROS
男, 18岁
山东 济南 
加为好友
 
   
 
文章分类
 
 
 
 
(5)
 
15(7)
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
     
 
我的好友
 
   
 
好友最新文章
 
     
 
最新评论
 
文章评论|照片评论


挺经典的
 

test
 

非常好,可以制作自己的纸牌游戏了。
 
 

[表情]
 
回复飄零ヤ落葉:楼上的达人说的非常正确!感谢那位做好事不留名的达人!
 
可爱,是哪位达人帮你找到的呢?想必那个达人一定非常善良吧...
 
     
 
我在百度
 
   
 
最近访客
 
 

大古2008

房恩宏

hankcs

suicanhui

weolar

我艹百和谐度

lwtxk

橡皮树的博客
     
 
RSS订阅
 
   
 
订阅我的空间
 
已有人次访问本空间
 
订阅RSS  什么是RSS?

您也想拥有这样的空间?请点此申请。
     


©2009 Baidu