以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口事件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136842)
--  作者：klkingkkk
--  发布时间：2019/6/22 17:07:00
--  [求助]窗口事件
我在窗口的全局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编辑过]
--  作者：有点蓝
--  发布时间：2019/6/22 17:57:00
--  
做一个按钮点击保存。

或者上传实例看看
--  作者：klkingkkk
--  发布时间：2019/6/23 0:48:00
--  
首先,谢谢你为我解答.完了我想问一下怎么上传实例!!!


找到办法了  把
e.Form.controls("TextBox2").Text = stext2

改成了
e.Form.controls("TextBox2").SelectedText = stext2


再次感谢