- 博客(13)
- 收藏
- 关注
RSS订阅正弦函数的画法
Option ExplicitDim intrate%, intdeg%, m!, n!'intrate表示速度 ,intdeg表示sin(x)中x的角度 ,n表示幅值放大的倍数,m表示sin(x)的函数周期倍数Private Sub Command1_Click()Call drawaxis(Picture1)Timer1.Enabled = TrueCommand2.Caption = "停止...
2008-11-24 16:12:00
352
VB6的qbcolor函数
QBColor函数返回索引返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。语法QBColor(color)必要的 color 参数是一个界于 0 到 15 的整型。设置值color 参数有以下这些设置：值颜色值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11...
2008-11-23 19:47:00
444
用三维饼图分析各阶段人数比例
‘设计一程序，用三维饼图表达考试成绩分别在 优秀、良好、中等、及格和不及格 5个区间的学生人数比例关系（程序运行界面已上传至相册VB6）Option Base 1Private Sub Command1_Click()Dim map(5) As Single, total!, i%, j%For i = 1 To 5map(i) = Val(Text1(i - 1)) ' 将各文本框中的数据存...
2008-11-23 13:57:00
618
vb中line的用法
vb中line的用法绘制方框可使用 Line 方法绘制并填充方框。下列示例画出一个方框，其左上角为 (500, 500)，每边长为 1,000 ：Line (500, 500)–Step(1000, 0)Line -Step(0, 1000)Line -Step(–1000, 0)Line -Step(0, –1000)然而，Visual Basic 提供了一个更简单的画方框的方法。...
2008-11-23 12:57:00
633
画图工具的VB实现
‘用户可以随意的用mouse画图，也可以引入图片，然后进行简单的处理，主要是添加两个picture控件 和几个按钮 (程序运行界面已上传到相册VB6中)Dim x1!, v1!, x2!, v2!, a1!Private Sub Command1_Click() ' 清屏的按钮Picture2.Cls '清屏End SubPrivate Sub Command2_Click() '画笔颜色...
2008-11-23 09:46:00
278
简单IE浏览器的VB实现
’添加一个webbrowse控件和几个按钮，少量的代码，就可以实现简单的IE浏览器 (程序运行界面已上传至相册VB6)Private Sub Command1_Click(Index As Integer)Select Case Index Case 0trip: WebBrowser1.Stop '停止 Case 1 WebBrowser1.Refresh '刷新 Case 2 WebB...
2008-11-23 07:43:00
117
小型记事本的VB实现
上面是程序运行的界面！（程序运行界面已上传到相册的VB6栏目）以下就是VB6的源代码：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />依次添加5个按钮控件，一个timer控件和一个microsoft common dialog control 6.0控件...
2008-11-22 20:04:00
91
VB中CommonDialog示例
VB中CommonDialog示例 从project->components,选中microsoft common dialog control 6.0,点击“确定”，会有Commondialog按钮出现在控件栏中，然后拖一个到窗体，用其默认名Commondialog1。在本程序中实现如下功能：打开Word/Text/其它文件到Text1控件，Commondialog1.action=1...
2008-11-21 23:39:00
308
PHP输出xls文件
工作中经常会遇到将这样的问题，需要将数据库中的数据导出到Excel中查看，方法有很多，其中最好的一种方法是导出成Excel能识别的xml文件，可以自己设计一个Excel表将其保存为xml格式，研究一下DOM的结构就很容易得到Excel能识的xml文件了。方法二是导出csv文件，这个简单，相信大家都会吧，只是这种方法导出的数据，如果没有安装Excel，查看起来很不方便。方法三，网上有种模拟输出xls...
2008-11-17 09:33:00
160
名字打架小游戏flash版
偶然发现的flash游戏，觉得还不错，拿来分享，工作学习累了消遣消遣点击下面的链接进入http://www.mymybao.com/bbs/read.php?tid-134.html
2008-11-16 08:20:00
2838
VB.NET (VB2008)的免费下载网址
VB.NET (VB2008)的下载网址VB.net学习版，免费下载下载网址： http://www.microsoft.com/express/download/
2008-11-13 09:19:00
2427
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人