共有260条留言 [ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 ] 向下滚屏
昵　称 留言内容
无语网络
该留言发表于:2005-3-16 9:42:53 北京时间           邮件地址:wyidc@163.com 主页地址:http://www.wyidc.cn oicq号:80647105 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
我是木瓜多年的同事兼好友，支持木瓜，同时，在木瓜的留言板做个广告，希望木瓜不要删啊！！拜托拜托！！（谁让你的人气这么旺了呢）

我有了无语工作室http://www.wuyuworkroom.com、最近又开了无语网络http://www.wyidc.cn
最新推出：国际域名：60元＼年；100M asp空间100元＼年；建站最优惠套餐：880元（赠送一个国际域名+100M asp空间）

希望木瓜的好友来看一下。嘻嘻，希望可以为你们提供服务。呵呵，记住，我是个人，不是公司，不过我可以开正式发票的。

谢谢，谢谢，不要删除啊。

站长回复：
    
2005-3-16
Tin
该留言发表于:2005-3-15 22:07:34 北京时间           邮件地址:tin_xushun@21cn.com oicq号:99307221 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
还真是人多，上来看看

站长回复：
    兄弟是从微软新闻组转道而来的吧，欢迎欢迎。
2005-3-16
寻找什么
该留言发表于:2005-3-15 10:10:02 北京时间           邮件地址:508865@qq.com oicq号:508865 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
木瓜哥好~~~[套近乎..]问个巨简单的问题哈
有个文本框txt1
一个文件"简介.TXT"
如何把文件里面的内容在txt1中显示出来？？

我的代码

Private Sub Form_Load()
Dim n As String
Open "E:\Microsoft Visual Studio\data\简介.txt" For Input As #1
Show
Input #1, n
txt1.Text = n
Close #1
End Sub

怎么运行怎么错，哎
另外怎么实现程序存在在哪个目录，就打开当前目录里的某个文件啊，我现在都是输入完整的文件路径名的，垃圾死了哎~

站长回复：
    '将简介.txt文件放在和工程同一目录下。用(App.Path & "\简介.txt")来取得当前文件的路径，下面代码一些函数的用法建议参考MSDN。
Private Sub Form_Load()
  Text1.Text=FileContent(App.Path & "\简介.txt")
End Sub

Function FileContent(FileName As String) As String
    Dim FileNo As Integer
    Dim FileString As String
        FileNo = FreeFile '取得未使用的文件号
        
    Open FileName For Binary As #FileNo
    FileString = Space(FileLen(FileName))
    Get #FileNo, , FileString
    Close #FileNo
    
    FileContent = FileString
End Function
2005-3-16
vb菜菜虫
该留言发表于:2005-3-9 2:14:34 北京时间           删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
看到个小程序,是计算9以内的乘法的,代码如下,可一个劲的报错,请帮忙看看错在哪~

Public a, b
Private Sub Cmdchuti_Click()
Randomize Timer '随机函数播种语句
a = FixRnd9 + 1
b = FixRnd9 + 1
LabTiMu.Caption=Str$a &"×"& Str$b &"="
Text1.Text = ″″ '清空文本框中内容
Labduicuo.Caption = ″″
Cmdpanti.Enabled = True
Cmdpanti.Default = True
Cmdchuti.Enabled = False
Text1.SetFocus '将焦点设置在Text1中
End Sub
Private Sub Cmdpanti_Click()
x = Val(Text1.Text)
If x = 0 Then Exit Sub
If x = a * b Then
Labduicuo.Caption = ″正确″
Else
Labduicuo.Caption = ″错误″
End If
Cmdchuti.Enabled = True
Cmdchuti.Default = True
Cmdpanti.Enabled = False
End Sub
Private Sub Cmdtuichu_Click()
End
End Sub
Private Sub Form_Load()
Cmdpanti.Enabled = False
End Sub


站长回复：
    修改如下，建议查看MSDN文档：
Public a As Double
Public b As Double

Private Sub Cmdchuti_Click()
    Randomize Timer '随机函数播种语句
    a = Fix(Rnd(9)) + 1
    b = Fix(Rnd(9)) + 1
    LabTiMu.Caption = Str(a) & "×" & Str(b) & "="
    Text1.Text = "" '清空文本框中内容
    Labduicuo.Caption = ""
    Cmdpanti.Enabled = True
    Cmdpanti.Default = True
    Cmdchuti.Enabled = False
    Text1.SetFocus '将焦点设置在Text1中
End Sub
Private Sub Cmdpanti_Click()
    Dim x As Double
    x = Val(Text1.Text)
    If x = 0 Then Exit Sub
    If x = a * b Then
        Labduicuo.Caption = "正确"
    Else
       Labduicuo.Caption = "错误"
    End If
    Cmdchuti.Enabled = True
    Cmdchuti.Default = True
    Cmdpanti.Enabled = False
End Sub

Private Sub Form_Load()
    Cmdpanti.Enabled = False
End Sub
2005-3-9
敏敏猪
该留言发表于:2005-3-8 14:42:24 北京时间           邮件地址:mary19940806@yahoo.com.cn 主页地址:http://post.baidu.com/f?kw=§敏敏猪★ icq号:298599760 oicq号:423555570 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
呵呵~!加油啦~!永远支持你~!

站长回复：
    小小年纪，你的网络联系方式倒挺全的 ^^
2005-3-8
老孙
该留言发表于:2005-3-7 19:00:08 北京时间           删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
学vb，用什么数据库比较好？

站长回复：
    祝情况而定。
仅仅是学习或者开发单机版可以用Access。Excel也可以考虑，只是有些不妥。
若开发网络版程序，首选SQL Server，可以与VB无缝集成，其次是Oracle、Sybase。
2005-3-8
老孙
该留言发表于:2005-3-7 15:32:00 北京时间           删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
我明白啦，谢谢。
http://laosun.chiname.cn/97760.asp
老孙
该留言发表于:2005-3-7 14:58:23 北京时间           删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
“有3个桶装满后分别能装3,7,10斤酱油,现在有10斤酱油,装在10斤桶里,怎样配制才能使有一个桶里装的有5斤酱油”
以下是我的程序，能出结果，但不能结束。请指点。
Private Sub Form_Load()
Dim x As Integer, y As Integer, z As Integer '定义三个罐子的现存油量。
Dim m As Integer, n As Integer '定义每个罐子的油的变化量
Dim a As Integer, b As Integer
Label1.Caption = 0
Label2.Caption = 0
Label3.Caption = 10
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
x = Val(Label1.Caption)
y = Val(Label2.Caption)
z = Val(Label3.Caption)
If x = 3 Then '第一个罐子满3 就倒回第三罐
   x = 0
   z = z + 3
     If x = 5 Or y = 5 Or z = 5 Then
         Label1.Caption = Trim(Str(x))
         Label2.Caption = Trim(Str(y))
         Label3.Caption = Trim(Str(z))
      Exit Sub
     End If
Else
   a = 3 - x
   m = IIf(a < y, a, y)
     If m = o Then '如果不能从第二罐中把油倒入第一罐，就从第三罐中倒入第二罐。
        b = 7 - y
        n = IIf(b < z, b, z)
        y = y + n
        z = z - n
        x = x + m
        y = y - m
     End If
    x = x + m
    y = y - m '从第二罐中倒入第一罐
      If x = 5 Or y = 5 Or z = 5 Then
         Label1.Caption = Trim(Str(x))
         Label2.Caption = Trim(Str(y))
         Label3.Caption = Trim(Str(z))
        Exit Sub
       End If
  End If
   Label1.Caption = Trim(Str(x))
   Label2.Caption = Trim(Str(y))
   Label3.Caption = Trim(Str(z))
End Sub


站长回复：
    在每个Exit Sub之前加一行 Timer1.Enabled=False
2005-3-8
鸭子
该留言发表于:2005-3-7 13:25:24 北京时间           oicq号:156537946 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
不错啊
向木瓜哥哥学习
冲啊
我才学VB的

站长回复：
    VB是个好东东，努力学习并坚持！
2005-3-8
sunruyu
该留言发表于:2005-3-4 11:35:23 北京时间           邮件地址:sunruyu@sina.com 删除此留言（只有站长才能删除）站长回复（只有站长才能回复）
您好站长：我刚刚装了vs.net2003,想调试一个程序，当编译的时候系统提示：调试管理服务器被禁用，怎么回事呢？


站长回复：
    未遇到过此情况，估计与系统环境有关。
2005-3-8
共有260条留言 [ 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 ] 向上滚屏