vb addnew的问题

1）AddNew 方法 (ADO)，为可更新的 Recordset 对象创建新记录。

语法：

recordsetAddNew FieldList, Values

参数：

FieldList   可选。新记录中字段的单个、一组字段名称或序列位置。

Values   可选。新记录中字段的单个或一组值。如果 Fields 是数组，那么 Values
也必须是有相同成员数的数组，否则将发生错误。字段名称的次序必须与每个数组中的字段值的次序相匹配。

2）AddNew 方法（远程数据），为可更新的 rdoResultset 对象建立一个新行。

语法：

objectAddNew

object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。

3）AddNew 方法范例

该范例使用 AddNew 方法创建具有指定名称的新记录。

Public Sub AddNewX()
  Dim cnn1 As ADODBConnection
   Dim rstEmployees As ADODBRecordset
   Dim strCnn As String
   Dim strID As String
   Dim strFirstName As String
   Dim strLastName As String
   Dim booRecordAdded As Boolean
' 打开连接。
   Set cnn1 = New ADODBConnection
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
   cnn1Open strCnn
      
   ' 打开 Employee 表。
   Set rstEmployees = New ADODBRecordset
   rstEmployeesCursorType = adOpenKeyset
   rstEmployeesLockType = adLockOptimistic
   rstEmployeesOpen "employee", cnn1, , , adCmdTable
   ' 从用户获取数据，雇员 ID 的格式应为：
   ' 名、中间名和姓的三个首字母，
   ' 五位数字，以及性别标识 M 或 F。
   ' 例如，Bill Sornsin 的雇员 ID 为：B-S55555M。
   strID = Trim(InputBox("Enter employee ID:"))
   strFirstName = Trim(InputBox("Enter first name:"))
   strLastName = Trim(InputBox("Enter last name:"))
   ' 只在用户输入姓和名之后进行。
   If (strID <> "") And (strFirstName <> "") _
      And (strLastName <> "") Then
      rstEmployeesAddNew
      rstEmployees!emp_id = strID
      rstEmployees!fname = strFirstName
      rstEmployees!lname = strLastName
      rstEmployeesUpdate
      booRecordAdded = True
      ' 显示新添加的数据。
      MsgBox "New record: " & rstEmployees!emp_id & " " & _
         rstEmployees!fname & " " & rstEmployees!lname
  Else
      MsgBox "Please enter an employee ID, " & _
         "first name, and last name"
   End If
      
   ' 删除新记录，因为这只是演示。
   cnn1Execute "DELETE FROM employee WHERE emp_id = '" & strID & "'"
  rstEmployeesClose
   cnn1Close
End Sub

用left函数
dim s
s = Left(Text1Text, Len(Text1Text) - 1)
form1print s (接受Print事件的有form和picture控件)
用mid函数
Dim s
s = Mid(Text1Text, Len(Text1Text), 1)
MsgBox s
ringt函数也可以

用webbrower控件

请看下例
’声明：该程序由csdn论坛获得

dim dwinfolder as new shellwindows
dim withevents eventie as webbrowser_v1

private sub command1_click()
dim objie as object

for each objie in dwinfolder
if objielocationurl = list1list(list1listindex) then
set eventie = objie
command1enabled = false
list1enabled = false
text1text = ""
exit for
end if
next
end sub

private sub eventie_navigatecomplete(byval url as string)
text1text = text1text + chr(13) + chr(10) + url
end sub

在运行前。点击菜单 projects | references 项，在available references 列表中选择microsoft internet controls项将internet对象引用介入到工程中

private sub form_load()
dim objie as object

for each objie in dwinfolder
if instr(1, objiefullname, "iexploreexe", vbtextcompare) <> 0 then
list1additem objielocationurl
end if
next
command1caption = "正文"
end sub

private sub form_unload(cancel as integer)
set dwinfolder = nothing
end sub

private sub list1_click()
dim objdoc as object
dim objie as object

for each objie in dwinfolder
if objielocationurl = list1list(list1listindex) then
set objdoc = objiedocument

for i = 1 to objdocalllength - 1
if objdocall(i)tagname = "body" then
text1text = objdocall(i)innertext
end if
next
exit for
end if
next
end sub

最后行改为：
if
instr(n,chr(13))=1
then
text1text=right(n,len(n)-1)
else
text1text=n
endif
对于怀疑首字为回车的去掉法都可以这样。但如果不只是回车而是回车加换行（这种情况更常见）应该改为下面：
if
instr(n,chr(13)
&
chr(10))=1
then
text1text=right(n,len(n)-2)
else
text1text=n
endif

>>> string = '''a_b_c_001
a_b_c_002
a_b_c_003'''
>>> stringsplitlines()
['a_b_c_001', 'a_b_c_002', 'a_b_c_003']
>>>
# 字符串 *** 作，splitlines函数将字符串按行分割并返回一个列表

Private Sub Command1_Click()
  If MeCommand1Caption = "加上下划线" Then
    Text1FontUnderline = True
    MeCommand1Caption = "去掉下划线"
  Else
    Text1FontUnderline = False
    MeCommand1Caption = "加上下划线"
  End If
End Sub
Private Sub Form_Load()
  MeCommand1Caption = "加上下划线"
End Sub

'定义一个find函数
Private Function find(s1 As String, s2 As String) As String
Dim i As Integer
For i = 1 To Len(s1)
If i = InStr(1, s1, s2, vbTextCompare) Then
find = Left(s1, i - 1) & Right(s1, Len(s1) - Len(s2) - i + 1)
Exit Function
End If
Next i
find = s1
End Function
'将Text1Text中的Text2Text字符删除
Private Sub Command1_Click()
Dim s As String
s = find(Text1Text, Text2Text)
Text1Text = s
End Sub

---