Question

VB列表框内输入文字应该怎么弄？

Answer 1

方法和详细的操作步骤如下：

1、第一步，打开VB软件并在表单上添加一个列表框，见下图，转到下面的步骤。

2、第二步，执行完上面的操作之后，单击列表框，然后在属性窗口中，设置列表框的已知属性和内容，见下图，转到下面的步骤。

3、第三步，执行完上面的操作之后，在表单上，添加两个命令按钮，见下图，转到下面的步骤。

4、第四步，执行完上面的操作之后，分别设置两个命令按钮的属性，见下图，转到下面的步骤。

5、第五步，执行完上面的操作之后，双击“清除”命令按钮以编辑其代码，见下图，转到下面的步骤。

6、第六步，执行完上面的操作之后，运行程序并验证结果。
 在列表框中选择“语言”，然后单击“复制”命令按钮，然后将“语言”项复制到列表框中，见下图。这样，就解决了这个问题了。

Answer 2

在设计界面中，选中列表框，在属性面板往下翻 ， 有一个list，在list里面输入要输入的东西，如果输入的分好几行，要输入一行，点击一下别的空白地方，再回去输入第二行，依次。

Answer 3

Private Sub List1_DblClick()

Text1 = List1.List(List1.ListIndex)

End Sub

Answer 4

在设计界面中，选中列表框，在属性面板点击Items右边的按纽，在弹出的窗口中添加项目即可

Answer 5

老大，你的图片是CommonDialog的，这个不用你自己做……在部件里添加控件Microsoft Common Dialog，拉到form上再在按钮事件里写Private Sub MFile_Open_Click() '打开CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '显示“字体”对话框。
CommonDialog1.ShowFontText1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color End Sub