vb生成excel报表(vb报表控件)

Excel表格网 2022-10-22 09:50 编辑:屈蓉 68阅读

1. vb报表控件

Label(标签控件)是图形控件. Lbl XTextBox(文本框)显示文本或输入文本. Txt XCommandButton(命令按钮)作为按钮进行使用. Cmd XOptionButton(单选控件)

单选 Opt XCheckBox(复选控件)复选 Chk XListBox(列表框控件)进行多个项目的选择 Lst XComboBox(组合框控件)组合其他控件 Cbo XHscrollBar(横向滚动条)

Hsb XVscrollBar(竖向滚动条) Vsb XDriveListBox(磁盘列表框) Drive1DirListBox(文件夹列表框) Dir1FileListBox(文件列表框) File1Form(窗体) Frm XPictureBox(图形框控件)显示图片 Pic X

2. vb显示数据库控件

PublicFunctionConnectString()_AsStringConnectString="FileDSN=info.dsn;UID=sa;PWD=23"'连接字符器,改成你自己的EndFunctionPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.Recordset'这里是执行SQL语句,你只需要调用这个方法,把SQL查询语句参数传进来,最后返回一个RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0))

)Thencnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCountSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&_"条记录"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查询错误:"&_Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction

3. vb数据控件

不是,很多是可以改的,比如Caption属性,不能改的是那些边框的大小,boadstyle属性。

4. vb报表设计器

建议用VBA,那样比较方便如果不想用VBA,建议也别用VB-虽然能解决,但以后维护太麻烦,还是另想办法吧比如用数据库,C++等都可以

5. vb简单报表打印组件

 在Word2007中,用户可以通过设置打印选项使打印设置更适合实际应用,且所做的设置适用于所有Word文档。在Word2007中设置Word文档打印选项的步骤如下所述:

  步骤/方法

  第1步,打开Word2007文档窗口,依次单击Office按钮→“Word选项”按钮。

  第2步,在打开的“Word选项”对话框中,切换到“显示”选项卡。在“打印选项”区域列出了可选的打印选项,选中每一项的作用介绍如下:

  (1)选中“打印在Word中创建的图形”选项,可以打印使用Word绘图工具创建的图形;

  (2)选中“打印背景色和图像”选项,可以打印为Word文档设置的背景颜色和在Word文档中插入的图片;

  (3)选中“打印文档属性”选项,可以打印Word文档内容和文档属性内容(例如文档创建日期、最后修改日期等内容);

  (4)选中“打印隐藏文字”选项,可以打印Word文档中设置为隐藏属性的文字;

  (5)选中“打印前更新域”选项,在打印Word文档以前首先更新Word文档中的域;

  (6)选中“打印前更新链接数据”选项,在打印Word文档以前首先更新Word文档中的链接,

  第3步,在“Word选项”对话框中切换到“高级”选项卡,在“打印”区域可以进一步设置打印选项,选中每一项的作用介绍如下:

  (1)选中“使用草稿品质”选项,能够以较低的分辨率打印Word文档,从而实现降低耗材费用、提高打印速度的目的;

  (2)选中“后台打印”选项,可以在打印Word文档的同时继续编辑该文档,否则只能在完成打印任务后才能编辑;

  (3)选中“逆序打印页面”选项,可以从页面底部开始打印文档,直至页面顶部;

  (4)选中“打印XML标记”选项,可以在打印XML文档时打印XML标记;

  (5)选中“打印域代码而非域值”选项,可以在打印含有域的Word文档时打印域代码,而不打印域值;

  (6)选中“打印在双面打印纸张的正面”选项,当使用支持双面打印的打印机时,在纸张正面打印当前Word文档;

  (7)选中“在纸张背面打印以进行双面打印”选项,当使用支持双面打印的打印机时,在纸张背面打印当前Word文档;

  (8)选中“缩放内容以适应A4或8.5”X11”纸张大小”选项,当使用的打印机不支持Word页面设置中指定的纸张类型时,自动使用A4或8.5”X11”尺寸的纸张;

  (9)“默认纸盒”列表中可以选中使用的纸盒,该选项只有在打印机拥有多个纸盒的情况下才有意义。

6. VB表格控件

选择菜单项“工程”并单击子选项“部件”,将显示“部件”对话框,在空间里面找到“Microsoft Windows Common Controls 6.0”选项,在前面打勾,点击确定。

这样就会将“状态栏”和“工具栏”之类的控件添加到工具箱里面。

然后再工具箱里面找有两个“小凹陷(很像状态栏的样子)“的就是了,它的英文名字statusbar,双击即添加进去。

右键点击该控件,选"属性",可设置其外观,窗格数,字体及图片

通过代码可改变状态栏中的显示内容

7. vb 图表控件

1、首先打开VB6.0,选择“标准EXE”。

2、然后按下键盘上的“Ctrl+T”来选择部件。

3、在其中找到“MicrosoftMultimediaControl6.0”选项。

4、点击左侧的小框框来选中。

5、点击对话框下部的确定按钮来完成添加。

6、此时,工具箱内就会出现小部件。

7、点击小部件,然后在窗体中画出小部件。

8、画完后,展现效果图。

9、关于MMcontrol的设置可以在右侧进行。

10、就这样,MMcontrol添加成功,可以为它书写代码了。

8. vb控件代码

新建vb工程,加入timer,label,command控件各一个。

然后复制以下代码

Private Sub Form_Load()

Dim IntInterval As Integer

'改变IntInterval的值可以改变循环快慢

IntInterval = 100

Timer1.Interval = IntInterval

NTimer = 0

'为了显示更清楚

Label1.FontSize = 60

End Sub

Private Sub Timer1_Timer()

'这里面得代码相当于一个循环,循环结束条件是

'Timer1.Enabled = False或者Timer1.Interval = 0

'循环的执行时间间隔就是Interval的值,毫秒为单位。

NTimer = NTimer + 1

Label1.Caption = NTimer

End Sub

运行,你就明白了。我注视写得很清楚的。祝你成功!

9. vb列表控件

比如说添加一个文本框:Dim t As TextBoxSet t = Controls.Add("VB.TextBox", "t1")t.Move 300, 150, 3000, 2400t.Visible = TrueVB.TextBox是文本框的类名,其他控件也有对应的类名,你可以自己去查。比如按钮就是VB.CommandButton。另外,代码建立的控件其Visible属性默认是False的(也就是不显示),要改为True才行。

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片