6。请问,这是个啥函数：单击控件上的Option,进入这个函数：

Question

6。请问,这是个啥函数：单击控件上的Option,进入这个函数：
Private Sub Option1_Click(Index As Integer)
End Sub
请问,这是个啥函数？7。改变鼠标形状为自定义ico,静态设置属性也可以的，但放在程序里，咋就c出现：类型不匹配的错误了？？Private Sub Option2_Click()
 MousePointer = 99
 MouseIcon = "C:\PWIN98\Desktop\ico2.ico" '我用这个路径图标进行form的属'性设置是可以的*/
End Sub
8.dim str1 as string 
str1="Hello,"
...'某些操作
str1+="World"  '到某步,str1 需要加长了
咋str1出错了？
那如何加长str1 ??9.字符串在Text1.Text中不会回车换行
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim str1 As String
str1 = "Hello" + Chr(13) + "World"
Print str1
Text1.Text = str1
End Sub
10.这两句啥意思？
RichTextBox1.SelIndent = 10
RichTextBox1.SelRightIndent = 20
另外，移动的单位咋指定？

Answer 1

你一口气问了怎么多啊？
6。请问,这是个啥函数：单击控件上的Option,进入这个函数：
Private Sub Option1_Click(Index As Integer)
End Sub
请问,这是个啥函数？
答：这是一个单选按钮组，你选中了其中的任一个，都会触发Click事件！7。改变鼠标形状为自定义ico,静态设置属性也可以的，但放在程序里，咋就c出现：类型不匹配的错误了？？Private Sub Option2_Click()
 MousePointer = 99
 MouseIcon = "C:\PWIN98\Desktop\ico2.ico" '我用这个路径图标进行form的属'性设置是可以的*/
End Sub
答：鼠标的形状应该用*.cur啊！8.dim str1 as string 
str1="Hello,"
...'某些操作
str1+="World"  '到某步,str1 需要加长了
咋str1出错了？
那如何加长str1 ??
答：这个问题没看懂，你说清楚一点！
9.字符串在Text1.Text中不会回车换行
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim str1 As String
str1 = "Hello" + Chr(13) + "World"
Print str1
Text1.Text = str1
End Sub
答：设置Text1中的MultiLine为True10.这两句啥意思？
RichTextBox1.SelIndent = 10
RichTextBox1.SelRightIndent = 20
另外，移动的单位咋指定？
答：偶想想啊

Answer 2

还有呢,
11.form上一个按钮，两个文本框，一个ProgressBar
按钮单击函数：
Private Sub Command1_Click()
Dim count As Integer
 If Text1.Text <> "" Then
  count = Val(Text1.Text)
  ProgressBar1.Min = 1
  ProgressBar1.Max = count
   
  For i = ProgressBar1.Min To count
   Text2.Text = i
   ProgressBar1.Value = Val(Text2.Text)
  Next i
 End If
End Sub请问：为啥进度表在向前滚动的时候，Text2咋没显示任何东西，一直到结束才显示？而且出来进度表在动，其他控件都好像死掉了！！？？

Answer 3

13  com组件是啥？和active组件有嘛区别？

Answer 4

14
RichTexBox1.load "c:\1.txt",1 '1.txt里面有中文字符，咋显示的是乱码？

Answer 5

6:你的option是控件数组，当option中的一个被点击以后触发click事件。Private Sub Option1_Click(Index As Integer) 是事件响应过程。index对应你所点击的控件的空间数组索引号
  7:鼠标用.cur文件
  8:str1+="World"  ?拜托，这是VB，语法和vc不一样的 str1= str1+"World"
  9:将text控件的MultiLine为True，或者在程序中使用特,text.Multiline = True
  10:SelHangingIndent、SelIndent、 SelRightIndent 返回或设置 RichTextBox 控件中段落的页边距设置值，该控件不是包括有当前选定就是要在当前插入点添加。这些属性在设计时无效。只能在运行时用语句修改
  11:  For i = ProgressBar1.Min To count
           DoEvents   '在循环体中添加这行，否则循环过程中独占系统资源
           Text2.Text = i
           ProgressBar1.Value = Val(Text2.Text)
       Next i
  12:怎么没有12号问题？
  13:com组件和active组件的区别欧就不大明白了不好意思
  14:试一试下面这个
     Open "c:\1.txt" For Input As 1
     RichTextBox1.Text = Strconv(InputB$(LOF(1), 1), vbUnicode)   接分！
   另外建议楼主多看看msdn

Answer 6

6.我咋找不到这个方法的函数了？以前我单击option1，就出现这个函数的，咋现在出来
sub Option1_click()了，如何出现以前的Private Sub Option1_Click(Index As Integer)？？7。没用，出现不匹配错误。我觉得.ico是可以的，因为我属性设置MouseIcon为上述路径的图标就可以的。但为何放在代码里就不行了？？12。vb有多线程编程吗？
14。仍旧无法显示中文。
我也试了下：
RichTextBox1.Text = Strconv(RichTextBox1.Text，vbUnicode)
useless:(15,另外，richTextBox1在字符超过其大小时候，咋不自动出现滚动条？？16。 vb的多行注释符号是啥？

Answer 7

6.我咋找不到这个方法的函数了？以前我单击option1，就出现这个函数的，咋现在出来
sub Option1_click()了，如何出现以前的Private Sub Option1_Click(Index As Integer)？？
以前Option1是数组，你把Option1的index属性改成0就行了12。vb有多线程编程吗？没有真正的多线程15,另外，richTextBox1在字符超过其大小时候，咋不自动出现滚动条？？
设置一下滚动条属性

Answer 8

Private Sub Option1_Click(Index As Integer)
End Sub
是option1的事件，在单击的时候发生

Answer 9

1。
dim str1 as string 
str1="Hello,"
...'某些操作
str1+="World"  '到某步,str1 需要加长了
咋str1出错了？
那如何加长str1 ??
-----------------------
str1+="World"是C的语法！？VB可以么？郁闷啊，用str1=str1 & "World" 不可以吗？
==================================================================
2。符串在Text1.Text中不会回车换行
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim str1 As String
str1 = "Hello" + Chr(13) + "World"
Print str1
Text1.Text = str1
End Sub
-----------------------
str1 = "Hello" + vbcrlf + "World"  将 Chr(13) 改成 回车还行（而且保证Text1.MultiLine为真）用Chr(13)不行
========================================================================

Answer 10

RE:
以前Option1是数组，你把Option1的index属性改成0就行了对,这样设置可以出现Private Sub Option1_Click(Index As Integer)
End Sub了.但,我如果在设置其他非0的数字,咋一直是这个函数了呢?我又想恢复那个Private Sub Option1_Click()
End Sub,咋办?

Answer 11

SelHangingIndent、SelIndent、 SelRightIndent 属性
      返回或设置 RichTextBox 控件中段落的页边距设置值，该控件不是包括有当前选定就是要在当前插入点添加。这些属性在设计时无效。语法object.SelHangingIndent [= integer]object.SelIndent [= integer]object.SelRightIndent [= integer]SelHangingIndent、 SelIndent 和 SelRightIndent 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
integer 整数，它决定缩放量。这些属性用包含 RichTextBox 控件的 Form 对象的刻度模式单位。 
说明对于受影响的段落，SelIndent 属性指定了 RichTextBox 控件的左边缘和选定或添加的文本的左边缘之间的距离。类似的，SelRightIndent 属性指定了 RichTextBox 控件的右边缘和选定或添加的文本的右边缘之间的距离。SelHangingIndent 属性指定了选定段落（如 SelIndent 属性所指定的）中文本首行左边缘与本段下面各行左边缘之间的距离。如果其选定跨越了具有不同页边距设置值的多个段落时，这些属性将返回零 (0)。

Answer 12

问题8、str1+="World" ,vb不能这样写吧。应该str1=str1+"World"