- 博客(14)
- 收藏
- 关注
RSS订阅原创 格式化小数位数。round ,format.
编程时遇到的一个难题:要 heat * " + CStr(Val(Text5(4).Text)) + " 的乘积保留一位小数.而sql不认识format函数，如果在Text5(4).Text就将其取2位小数，有可能造成0.999和1.023相同的结果，会有误差。所以现在我采取的是Text5(4).Text的内容不处理，在计算完后的结果中处理，变成了这样的一条语句。 int((heat * " +
2007-04-25 10:27:00
1134
原创 创建两个随机树在1到100之间，然后按大小顺序输出在文本框上
Private Sub Command1_Click() Dim rand(2) As Integer Dim i As Integer For i = 0 To 1 rand(i) = Int(100 * Rnd) + 1 Next If rand(0) > rand(1) Then Text1.Text = rand(0) & "，" & rand(1)
2007-04-24 14:38:00
764
原创 如何利用Crystal Report程序来生成PDF版本？（
如何利用Crystal Report程序来生成PDF版本？（How to generate PDF version of Crystal Report programmatically?） ReportDocument O_Report=new ReportDocument(); ExportOptions exportOpts = new ExportOptions(); PdfRtfWord
2007-04-24 09:41:00
1538
原创 缺少.ocx等的控件的解决方法
如果加载工程时提示缺少.ocx控件，可以先将相应的.ocx控件拷到system32目录下，然后注册一下。在运行里，敲入：regsvr32 threed32.ocx可以通过提示看到是否注册成功了
2007-04-11 11:16:00
3372
原创 动态控件添加问题
假设要动态的添加一组控件，如添加option控件组，要先在窗体上画 一个option控件，并且将其index属性设置为1，然后可以用下面的语句：For i = 1 To 5 Load Option1(i) 给数组添加 5 个选项按钮。 Option1(i).Top = Option1(i - 1).Top + 350 Option1(i).Visible
2007-04-11 10:36:00
639
原创 VB 面向对象程序设计的基本概念
1．3 面向对象程序设计的基本概念1．基本术语（1） 对象和对象类 对象是代码和数据的组合，可以作为一个单位来处理。对象可以是应用程序的一部分，比如可以是控件或窗体。整个应用程序也是一个对象。在 VB中可能用到的几种类型的对象： 示例
2007-04-10 10:51:00
7614
原创 const是声明常量的，dim是声明变量的
const a as integer =5是正确的但是dim a as integer =5就不对了
2007-04-06 13:58:00
1333
原创 一些简单函数的使用如asc(),format()
在立即窗口中可以使用？加函数名。如：?asc("j") 是查"j"的ASCII码的Text.alignment=0文本框的字从左边开始写。=1从右边，2从中间label控件的透明属性的设置为:backstyleFormat(Text1.Text, "#,#")每三个数字都有一个逗号如：123，564，785Format("HELLO", " 返回 "hello"。Format(
2007-04-06 08:40:00
665
原创 金额的转化，将阿拉伯数字的金额装换成大写
Private Sub Command1_Click() Static a As String Static n As String Dim c(9), b(9) Dim i, s c(1) = "": c(2) = "拾": c(3) = "百": c(4) = "千": c(5) = "万": c(6) = "拾" c(7) = "百": c(8) = "千
2007-04-05 10:49:00
745
原创 vb窗体中控件自动随窗体变化大小源代码
http://qian21h.bokee.com/viewdiary.15356105.htmlPrivate Sub Form_Resize()txt.Top = 200txt.Height = Me.Height - 1500 - txt.Toptxt.Left = 400txt.Width = Me.Width - 1000 - txt.LeftEnd Sub
2007-04-05 10:06:00
1813
原创 当引用excel对象是出错的话，将引用改为creatobject
当使用下列语句时会出现错误 Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.Open(App.Path & "/outp
2007-04-05 09:58:00
862
原创 读取datagrid中某一行某一列的值
当要显示的datagrid能够一屏显示的话，可以用该语句DataGrid1.Columns(DataGrid1.Col).CellText(DataGrid1.RowBookmark(DataGrid1.Row)) 当要显示的datagrid能够一屏不够显示的话，要用该语句DataGrid1.Columns(DataGrid1.Col).CellText(DataGrid1.GetBookma
2007-04-05 09:45:00
1669
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人