Public Class clsConnect Public Function getTitile() As String Dim gstrFormCaption As String Dim VisM As New AxVISMLib.AxVisM VisM.CreateControl() With VisM .VALUE = "" .PLIST = "" .MServer = "CN_IPTCP:127.0.0.1[1972]:127.0.0.1[1972]" .NameSpace = "MAXHEART" .PDELIM = "r" .P0 = "" .Code = "set VALUE=$$GetKyokaiNm^YFVBS009(P0)" .ExecFlag = 1 gstrFormCaption = .PLIST End With getTitile = gstrFormCaption End Function End Class
Dim VisM As New AxVISMLib.AxVisM
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)