- 博客(14)
- 收藏
- 关注
原创 格式化小数位数。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 3373
原创 动态控件添加问题
假设要动态的添加一组控件,如添加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 1670
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人