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

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才行。