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
相关文档:
有很多学生问我,现在 3G移动互联网发展之势头必将是IT领域发展十年一遇的难得机遇,想投身到该行业中,不知道是应该学网络、还是学嵌入式设备开发、还是学习一下Java,C++应用开发,还是学习一下开源框架Android?
从我个人对行业的理解来讲,移动互联网的发展一定是先从网络开始,网络设备提供商、协议的开发机构( ......
近日在编程中用到接口知识,由于课本中对接口描述较少,所以想从网上查找资料,但网上的资料大多也只是冗长的描述,所以在此提供一自己写的实例,供大家参考:
原题是这样的:在java中,定义一个接口,声明计算长方形面积和周长的抽象方法,再用一个类去实现这个接口,再编写一个测试类去使用这个接口。
首先,接口必须单 ......
偶尔在网上发现的一片关于掌握JAVA的标准,感觉有点意思,虽然在一些观点上有些偏颇,但作为学习JAVA的引导尚可。至于原创是谁没有必要考证。
时常看到一些人说掌握了Java,但是让他们用Java做一个实际的项目可能又困难重重,在这里,笔者根据自己的一点理解斗胆提出自己的一些对掌握Java这个说法的标准,当然对于新 ......
代码块:就是用{}括起来到部分。根据应用的不同分为4类:普通代码块、构造块、静态代码块、同步代码块。
1.普通代码块:定义在方法中的代码块。
如:
public class Ex22 {
public static void main(String[] args){
// 普通代码块
{
int i = 3;
System.out.println("局部变量为 " + i);
}
int i = 5 ......