VB与JAVA交互
Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
Set doc = dso.XMLDocument
Dim rel As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&userid=11&authority=111
", False
x.send
doc.Load (x.responseXML)
Set Tablelist = doc.getElementsByTagName("record")
Tablelen = Tablelist.length
For i = 0 To (Tablelen - 1)
'Text1.Text = Tablelist.Item(i).selectSingleNode("Fremark").Text
Combo1.AddItem (Tablelist.Item(i).selectSingleNode("pn").Text)
Next
End Sub
Private Sub Command2_Click()
a = "<result><TD>A
AAAA%AAAA</TD><TD>AAAAAA
AAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><result>"
Dim b As String
b = Now
Set x = CreateObject("Microsoft.XMLHTTP")
x.Open "GET", "http://127.0.0.1:8080/printsys/VfmacSelvet?mac
=" + a + "&time=" + b, False
' x.Open "GET", "http://127.0.0.1:8080/printsys/ExcelExport.jsp
, False"
x.send
Text1.Text = x.responseText
End Sub
相关文档：
近日在编程中用到接口知识,由于课本中对接口描述较少,所以想从网上查找资料,但网上的资料大多也只是冗长的描述,所以在此提供一自己写的实例,供大家参考:
原题是这样的：在java中，定义一个接口，声明计算长方形面积和周长的抽象方法，再用一个类去实现这个接口，再编写一个测试类去使用这个接口。
首先，接口必须单 ......
代码块：就是用{}括起来到部分。根据应用的不同分为4类:普通代码块、构造块、静态代码块、同步代码块。
1.普通代码块：定义在方法中的代码块。
如：
public class Ex22 {
public static void main(String[] args){
// 普通代码块
{
int i = 3;
System.out.println("局部变量为 " + i);
}
int i = 5 ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
一。数据类型
Byte 1
字节 无符号
Interger 2
字节
Long 4
字节
Float 4
字节
Double 8
字节
String
Date
Boolean
Currency
Variant
2.
变长字符串和定长字符
系统默认初始值为空字符串;
变长字符串：di ......
目的掌握一个简单的VB程序的建立、编辑、调试、运行和保存的方法。
操作步骤 ⑴进入VB环境，新建工程。方法是：如果出现“新建工程”对话框，则选择“标准.EXE”并点击[打开]按纽；或者直接点击菜单[文件]-[新建工程]。都会出现一个名为“Form1”的新窗体。
⑵从标准控件工具栏中向窗体加 ......
