Question

VB6.0 调用Bartender 案例。QQ：1019512569

Answer 1

这个不用找吧，Bartender的帮助文件里就有的。

Answer 2

私人小组Form_Load（）
昏暗的strTemp作为字符串
：昏暗的strUN（）
“点心strPW”（）
打开“D：\ JXX \ GJUser.txt”输入＃1 BR />虽然不EOF（1）
线路输入＃1，strTemp
Form1.Show
intcount intcount + 1
Redim Preserve则strUN（1要intcount）的REDIM：保护区strPW（1要intcount）
如果InStr（strTemp，“”）> 0，则
strUN（intcount）= LCASE（左（strTemp中，InStr（strTemp，“;”） - 1 ））
strPW（intcount）= RIGHT（strTemp，LEN（strTemp） - INSTR（strTemp，“”））的
：打印strUN（intcount）
：打印strPW（intcount）
结束如果
WEND
关闭＃1
结束小组