想用VB写个密码生成器一样的程序，就是一个按键。一个文本框。点一下按键就能在文本框里生成我写好的密码_百度知道
想用VB写个密码生成器一样的程序，就是一个按键。一个文本框。点一下按键就能在文本框里生成我写好的密码
,com, 有的告诉下 在线等 也可以把工程发我油箱@qq,就比如11234 我点下生成 就在文本框里显示11234 最好是密码随即的,,,
提问者采纳
text1 = &quot,text,11234&quot,,
提问者评价
其他类似问题
文本框的相关知识
其他2条回答
可采用fix(rnd()*11)+6 {我举例限定6-16位数字},如果位数固定则不用。然后用Rnd生成密码 fix(rnd()*10^XX)
{XX为上式生成的位数},你的问题应该是采用随机数Rnd函数。如果密码位数随机,
别这么复杂行吗？ 我密码是自己设置的 就好比我把我的密码放的数据库里 然后在那点下生成 就会在下面的文本框显示出我事先写好的密码！！！
用chinaboyzyq 的代码应该可以实现。想在别人电脑上也能用的话，把pass.txt与程序文件放在一个文件包里就行了，然后把第三句代码改为
open app.path & &\pass.txt&
for binary as #1其他地方不用动。
把你的密码存入文本文件（记事本文件），一行一个密码，然后保存在c:\pass.txtPrivate Sub Command1_Click()Randomize TimerOpen &c:\pass.txt& For Binary As #1Dim s, p() As Strings = Trim(StrConv(InputB(LOF(1), 1), vbUnicode))Close #1If Right(s, 2) = vbCrLf Then s = Left(s, Len(s) - 2)p = Split(s, vbCrLf)Text1.Text = p(Int(Rnd * (UBound(p) + 1)))End SubVB6专家百度Hi群1358368
软件要在别人电脑上也能运行 打个比喻Command1_Click()Text1.text =&8837844&End Sub 这样单击一下 Command1按键就会在Text1里显示 8837844 那么如何放入更多的密码进去就是按一下Command1会在Text1生成8837844 然后再按下生成我写入的别的密码 按顺序点一下生成一个 点一生成一个！
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁当前位置： >
> 求高手VB帮忙写一段小程序求高手指点代码程序描述如下：有4个文本框，想实现以下功能：1、运行程序时
求高手VB帮忙写一段小程序求高手指点代码程序描述如下：有4个文本框，想实现以下功能：1、运行程序时
xiaoling000 & at
求高手VB帮忙写一段小程序求高手指点代码&
程序描述如下：
有4个文本框，
想实现以下功能：
1、运行程序时，4个文本框中可输入任意文字，退出程序后重启程序，上次输入的文字还在。
2、打开一个旺旺聊天窗口（我旺旺账号是xixili），单击任意文本框，该文本框的文字便会复制到旺旺的聊天待发送窗口
3、双击任意文本框，该文本框的文字便会自动作为旺旺的聊天内容，发送给对方
求高手指点哦
建议你自己把大部分代码完成，其中比较困难的部分，如文本框的单击，双击等自己先试一试，出错或者出问题的部分拿来问下，这样比较容易得到答案。xiaoling272727 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&增值电信业务经营许可证湘B2-VB中怎么关联下面的程序啊？ 要求双击 打开 某文本里面的内容就可以在 文本框中显示
VB中怎么关联下面的程序啊？ 要求双击 打开 某文本里面的内容就可以在 文本框中显示
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
MsgBox "你刚才选择的文件名是：" + CommonDialog1.FileName
Private Sub Command2_Click()
Open "C:\Documents and Settings\All Users\桌面\a.txt" For Output As #1
Private Sub Command3_Click()
CommonDialog1.DialogTitle = "另存为"
CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
MsgBox "你刚才选择的文件名是：" + CommonDialog1.FileName
补充：晨 曦
回答采纳率:16.1%
你的方法用了就VB重启 ， 我试了2次
不区分大小写匿名
按住Shift键不放，用鼠标右键点击文件，放开Shift键，在弹出的对话框中选择“打开方式”，接着在“打开方式”属性窗口将你的程序找到，请注意在“始终使用该程序打开这种类型的文件”前打钩。好了，效果马上出来！如若想在程序中自动建立关联，则须用上API函数
你好上次不知是不是你问..我给段代码运行vb没有响应了..其实那段代码是没错的..只是text1只能放32k的文本。。超过32k会出错的，我试验过了..你用RichTextBox1来显示把..这个在部件那里加载名为：Microsoft rich textbox control 6.0然后你在打开按钮代码下写上下面那段代码行了
Private Sub Command1_Click()
Dim inp As String
Dim a As String
CommonDialog1.DialogTitle = &打开文件&
CommonDialog1.Filter = &所有文件|*.*|文本文件|*.txt&
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
MsgBox &你刚才选择的文件名是：& + CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, inp
a = a + inp
Loop
Close #1
RichTextBox1.Text = a
End Sub
等待您来回答
编程领域专家vb中怎样在运行text文本框时在其中输入一个字符后会自动消失，应该改变text中的那个属性值啊_百度知道
vb中怎样在运行text文本框时在其中输入一个字符后会自动消失，应该改变text中的那个属性值啊
在此感谢了！
提问者采纳
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Text1.Text = &&End Sub 或者Private Sub Text1_Change()Text1.Text = &&End Sub
其他类似问题
文本框的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁第1章VB概述第1章V
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
第1章VB概述
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口}