Imports Microsoft.Office.InfoPath
Imports System
Imports System.Xml
Imports System.Xml.XPath
Imports System.Windows.Forms
Imports mshtml
Namespace init
Public Class FormCode
' 启用浏览器功能的表单不支持成员变量。
' 请使用代码从 FormState 词典
' 写入和读取这些值，如下所示:
'
' 注意: 以下是 Microsoft Office InfoPath 所需的过程。
' 可以使用 Microsoft Office InfoPath 对其进行修改。
Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler EventManager.FormEvents.Loading, AddressOf FormEvents_Loading
AddHandler EventManager.XmlEvents("/my:myFields/my:AllDay").Changed, AddressOf AllDay_Changed
AddHandler EventManager.XmlEvents("/my:myFields/my:Date/my:StartDate").Changed, AddressOf StartDate_OnAfterChanged
AddHandler DirectCast(EventManager.ControlEvents("CTRL27_5"), ButtonEvent).Clicked, AddressOf CTRL27_5_Clicked
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Changed, AddressOf DTTest_Changed
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Changing, AddressOf DTTest_Changing
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Validating, AddressOf DTTest_Validating
End Sub
Public Sub FormEvents_Loading(ByVal sender As Object, ByVal e As LoadingEventArgs)
' 在此处编写代码。
Dim instance As DataSource = Me.MainDataSource
Dim mydate As XPathNavigator = CreateNavigator().SelectSingleNode("/my:myFields/my:DTTest", NamespaceManager)
mydate.SetValue(System.DateTime.Now.ToString("yyyy-MM-dd"))
End Sub
大概就是这样，FormEvents_Loading事件中代码是微软的Sample，其实就是给一个Textbox赋值，但是运行时候会出现错误
