我在窗口的全局DoubleClick事件中 加入以下代码Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
Dim stext1,stext2,stext3,stext4,scom9,stext10
Dim it1,it2,it3,it4,ic9,it10,it5,it6
Dim strs As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default)
it1 =strs.IndexOf("号牌号码")+5
it2 =strs.IndexOf("车辆识别代号")+7
it3 =strs.IndexOf("发动机号码")+6
it4 =strs.IndexOf("品牌型号")+5
ic9 =strs.IndexOf("品牌型号")+5
it5 =strs.IndexOf("发证日期")
it6 =it5-it3
stext1 = strs.SubString(it1,7)
stext2 = strs.SubString(it2,17)
stext3 = strs.SubString(it3,it6)
If it1 > 5 Then
e.Form.controls("TextBox1").text = stext1
If it2 > 7 Then
e.Form.controls("TextBox2").text = stext2
End If
If it3 > 6 Then
e.Form.controls("TextBox3").text = stext3
End If
Else
MessageBox.Show( "读取失败")
End If
End If
三个都能显示出来 但是一离开 就只有车牌号能保存 其它的都没有了
刚刚又试了一下 号牌的时候能保存号牌 在车架号的地方点的话能保存车架号 这个是怎么回呢?能不能就点号牌 其它的只要显示了就能保存呢?不用一个一个去点
[此贴子已经被作者于2019/6/22 17:13:59编辑过]
加好友 
发短信
Post By：2019/6/22 17:07:00 [显示全部帖子]
