机房收费系统——问题总结（一）

在进行机房收费系统的过程中，因为之前不会的挺多的，所以这次学到的也不少。我总结了一下，大多是些小知识点。如果你熟悉，权当复习一遍；如果你不会，希望给你带来灵感！

一、日历控件DTPicker。

这是一个需要到部件里面去找的一个控件，按ctrl+T/在工具箱右击--选择部件/菜单栏--工程--部件，调出部件后，查找Microsoft Windows Common controls--2 6.0,在其前面打勾。然后确定，从工具栏中添加的控件中找到名为DTPicker的控件，加到窗体中就行了。

效果如图，方法就是点击组合框的小箭头，就会弹出一个日历页。年份选择可以通过点击显示年的那块区域，月份也可以用这种方法修改。不过它也可以通过点击左右两边小箭头来修改。具体的其他属性可点击此处了解。



二、ComboBox组合框中的下拉列表的内容。

在窗体中加了一个ComboBox的控件之后，在代码窗体，在Form_Load里面写，ComboBox1.AddItem " "。比如，你想在组合框中写入一班和二班进行选择，你可以这样写：

<span style="font-size:18px;"></pre><p><pre name="code" class="vb"><span style="font-size:18px;"><strong>Private Sub Form_Load()
        Combo1.AddItem "一班"
        Combo1.AddItem "二班"
End Sub</strong></span></span>

三、更改代码窗体字体的大小。

有时候自己的代码窗体的代码太小或者太大，让自己看的不舒服，所以我们可以调一下代码字体的大小。步骤是：点击菜单栏工具——选项——编辑器格式——大小（代码字体的更改也是同样的方法）。

四、vb文本框中如何换行。

把文本框的Muiltline属性设为True表示支持多行输入，如果自己输入的文字很多的话，需要把ScrollBars的属性设置为2（只有在Muiltiline的属性为True时才可以设置ScrollBars的属性才有用），这样加了垂直滚动条后，方便自己查看输入的全部文字。然后想要在某个地方换行（前提是文本框Muiltline属性为True），可以在需要换行的地方输入vbCrlf代表回车。代码如下：

<span style="font-size:18px;"><strong><span style="font-size:18px;">Private Sub Form_Load()
        Text1.Text = "一班人数为37" & vbCrLf _
                     & "二班人数为40" & vbCrLf
End Sub</span></strong></span>

五、vb中如何在点击ComboBox组合框中的选项时，相应一个事件。代码如下：

<span style="font-size:18px;"><strong>Private sub combobox_Click()
     Select case combobox.text
          case "下拉列表中的第一项“
                进行的操作
          case"下拉列表中的第二项“
                进行的操作
      End Select
End sub</strong></span>

六.set mrc = new ADODB.Recordset是什麽意思。

这是个数据库设置语句，需要与其他相关设置语句一起用才会有效果，例如：Format（mrc(“字段名”），”0000“）语句仅是格式化某一字符串或变量，使其变成你所需要的格式。两者结合的意思就是将mrc("字段名”）设置为与“0000”相同的格式，mrc("字段名")应该是从数据库中读取以“字段名”为关键字的列的数据。

七.点击Msflexgrid中的退出选项卡，实现退出窗体功能，代码如下：

<span style="font-size:18px;"><strong>Private sub SSTab1_Click(Previous Tab As Integer)
   If SSTab1.Caption=“退出” then
            Unload me 
   End if 
End sub</strong></span>

八.Msflexgrid控件中的表格填写文本的方法。

直接看例子吧，简单易懂。例：Msflexgrid.textMatrix(0,0)="学号“【没有固定行（列）的最左上角的坐标是（0，0），也就是说括号里的就是要填写文本的坐标】。

九.更改Combobox的高度。

这个可以通过设置Combobox控件的字体大小属性来实现，也就是说，把字体设置大了，它自然就高了。Msflexgrid中的表格也可以这么设置。

十.SSTab 控件和MSFlexgrid控件如何添加。

看一里面的三种方法找到部件，然后再找Microsoft FlexGrid Control6.0（sp6)，在前面打勾就添加了Msflexgrid控件了。再找到Microsoft Tabbed Dialog Control，在前面打勾就添加了SSTab控件了。

十一.窗口的BorderStyle属性。

窗体的BorderStyle属性设置值，可能会改变MinButton/MaxButton（最小化和最大化按钮）和showInTaskbar属性的设置值，当BorderStyle设置为1（固定边框）或2（可变边框）时，MinButton/MaxButton和ShowInTaskbar属性自动设置为True，当BorderStyle设置为0（无）/3（固定对话框）/4（固定工具窗口）/5（可变工具窗体），MinButton/MaxButton/ShowInTaskbar属性自动设置为False。

机房收费系统，可以说是自己真正意义上的接触到VB的魅力，慢慢的了解了它。在这个过程中，收获的不仅仅是知识，还有很多好的习惯，比如说要多总结

。总结的好处有很多，最主要的是可以帮助到新手和让自己再巩固一遍知识点。然而这两点好处足以成为我们多总结的理由！希望这篇博客对你有帮助！