创建电子表格

Author: 晓文 Date: 1998年第38期 13版

　　电子表格是用户非常熟悉和经常使用的。它类似实际的表格，逻辑清楚、形式简洁，用VB编写的软件若能提供这种功能，让你的用户可以轻松输入一大堆数据无疑是大受欢迎的，如要录入全校各班级的课程表，就可以创建一张电子表格。
　　首先在VB中选择MSFlexGrid控件，如果在VB的工具箱中找不到这个控件，那可通过在菜单“工程/部件…”弹出的对话框中选中“Microsoft FlexGrid 5.0 Control”添加该控件。
　　然后建立窗体frmKCB，安放FlexGrid 控件设置其属性FormatString为以下字符串：“|星期一|星期二|星期三|星期四|星期五;|1|2|3|4|5|6|7|8|9|10”
　　安放按钮控件，公共对话框控件，调节各控件的大小、位置并为相应事件编写代码：
　　Option Explicit
　　Private Sub Command1_Click（Index As Integer）
　　Select Case Index
　　Case 0
　　CommonDialog1.ShowOpen
　　′......以下代码省略
　　Case 1
　　CommonDialog1.ShowSave
　　′......以下代码省略
　　Case 2
　　Unload Me
　　End Select
　　End Sub
　　在窗体上增加了一个文本框。并设置其Visible属性为False。在Grid控件的Click事件中编写代码，把文本框移动到点击的单元格上，然后调整它的大小使之与单元格大小一样，读出单元格的内容到文本框，然后设置文本框Visible属性为True，并获得焦点。当在文本框输入内容后，在文本框Change事件中编写代码：把文本框内容写入Grid的单元格中。
　　Private Sub msfgdKCB_Click（）
　　With msfgdKCB
　　txtF.Left=.CellLeft＋80
　　txtF.Top=.CellTop
　　txtF.Height=.CellHeight
　　txtF.Width=.CellWidth＋30
　　txtF.Text=.Text
　　txtF.Visible=True
　　txtF.SetFocus
　　End With
　　End Sub
　　Private Sub txtF_Change（）
　　msfgdKCB.Text=txtF.Text
　　End Sub
　　好了，现在我们拥有了自己的电子表格，你可以轻松输入需要的内容了。