摘要：
form1 窗体
dim userid as string
dim mobileno as string
dim checkrnd as string
dim longin as boolean
dim checkrndbox as string
public fileno as variant
dim ys as integer
dim su as long
dim sum ......
摘要：
c#的多线程机制探索 #
多线程程序设计是一个庞大的主题，而本文试图在.net framework环境下，使用最新的c#语言来描述多线程程序的概貌。希望本文能有助于大家理解线程这种概念，理解多线程的用途，理解它的c#实现方法，理解线程将为我们带来的好处和麻烦。c#是一种新的语言，因此它的线程机制也有许多独特的地方，希望大家能通过本文清楚地看到这些，从而可以对线程进行更深入的理解......
VB/vb.net浙江移动发送手机短信实例
浙江移动发送手机短信实例!!!!!!!!!!!!!!!!!!!!!!!
****************************************************************************
【程序编程相关:
在ASP.NET下使用水晶报表一（零点起】
【推荐阅读:
http://www.myfaq.com】dim userid as string
【扩展信息:
全选DataGrid里的复选框】form1 窗体
dim mobileno as string
dim checkrnd as string
dim longin as boolean
dim checkrndbox as string
public fileno as variant
dim ys as integer
dim su as long
dim sum as long
dim pas as string
private sub check2_click()
on error goto err1
if check2.value then
open app.path & "\" & text9.text for input as #fileno
else
close #fileno
end if
exit sub
err1:
stop
msgbox "打开文件出错"
end sub
private sub command1_click()
on error resume next
dim allcol
dim tagname as string
dim allcount, i
label2.caption = "准备读取数据"
set allcol = webbrowser1.document.all
allcount = allcol.length
for i = 0 to allcount - 1
tagname = allcol.item(i).tagname
if "input" = tagname then
tagname = allcol.item(i).name
select case tagname
case "userid"
userid = allcol.item(i).value
case "mobileno"
mobileno = allcol.item(i).value
end select
end if
next
timer5.enabled = true
exit sub
end sub
private sub command2_click()
timer5.enabled = true
end sub
private sub command3_click()
dim deskhdc&, ret&
dim pxy as pointapi
deskhdc = getdc(0)
pxy.x = me.left / screen.twipsperpixelx + picture1.left
pxy.y = me.top / screen.twipsperpixely + picture1.top + 17 + val(text1.text)
deskhdc = bitblt(picture2.hdc, 0, 0, picture1.width + val(text3.text), picture1.height + 6, deskhdc, pxy.x, pxy.y, vbsrccopy)
stop
ret = releasedc(0&, deskhdc)
picture2.refresh
end sub
private sub command4_click()
dim i as double
dim y as integer
dim deskhdc&, ret&
dim pxy as pointapi
dim pxy1 as pointapi
dim pxy2 as pointapi
deskhdc = getdc(0)
pxy.x = me.left / screen.twipsperpixelx + picture1.left
pxy.y = me.top / screen.twipsperpixely + picture1.top + 17
pxy1.x = me.left / screen.twipsperpixelx + picture1.width + 5 + picture1.left
i = (pxy1.x - pxy.x) / 4
select case val(text1.text)
case 0
deskhdc = bitblt(picture2.hdc, 0, 0, i, picture1.height + 6, deskhdc, pxy.x + 2, pxy.y, vbsrccopy)
case 1
deskhdc = bitblt(picture2.hdc, 0, 0, i, picture1.height + 6, deskhdc, pxy.x + i + 1, pxy.y, vbsrccopy)
case 2
deskhdc = bitblt(picture2.hdc, 0, 0, i, picture1.height + 6, deskhdc, pxy.x + i * 2 + 1, pxy.y, vbsrccopy)
case 3
pxy1.x = me.left / screen.twipsperpixelx + picture1.width + picture1.left
i = (pxy1.x - pxy.x) / 4
deskhdc = bitblt(picture2.hdc, 0, 0, i + 2, picture1.height + 6, deskhdc, pxy.x + i * 3 + 3.5, pxy.y, vbsrccopy)
end select
ret = releasedc(0&, deskhdc)
picture2.refresh
end sub
private sub command5_click()
dim x1, y1 as integer
dim i as integer
dim h as integer
dim s as long
dim mu as long
y1 = pi...
下一页 摘要：
xml缩进输出,最简单的方法！抛弃孟子e章的xslt方法吧！ ★xml缩进输出,最简单的方法！
by: 无心(cuixiping) 2005-1-28
时不时的有人问xml的缩进。
网上见的多的是孟子e章blog上的xslt方法（他的blog宣传不错，名气大嘛）
网址: http://blog.csdn.net/net_lover/archive/2004/07/27/536......
