创建-日积月累窗体--问题!!!

Question

本人想在自己的软件中加 一个日积月累穿体,每次打开出现一个小提示,到网上查了一个,觉得用line input把tips文本文件中的记录逐行读取,再显示比较容易.看了一下日积月累窗体里带的原码,不知从和入手.
问题:
 用上面所述的方法来实现,在日积月累原码中需要修改哪些 原码,又需要补充哪些原码!!!
请赐教!!!

Answer 1

你已經有源碼了，那看目前能不能滿足你的要求啦。---------
www.vicmiao.com
努力就有美好時光！

Answer 2

我的要求就是在工程目录下建一个TIP.TXT,在主窗体中启动frmtip窗体,每次读取一条TIP

Answer 3

用VB的窗体向导创建的日积月累窗体已经很好了，一般情况下你根本无须改动任何代码，你需要做的只是在应用程序所在的目录建立一个TIPOFDAY.TXT用于存放你要显示的语句，每行一句。
这个代码默认是按照随机顺序来显示语句的，或者你可以添加一个"顺序显示"和"随机显示"的选择，而且顺序显示的代码本来就有，只是被注释掉了，所以改起来也非常容易。

Answer 4

楼上的兄弟,按你说的我创建了一个TIPOFDAY.TXT
但是我在主窗体中调用FRMTIP窗体后,提示都是乱码
不知何故???
我直接在在主窗体中用frmtip.show调用日积月累窗体有问题吗>?????

Answer 5

Option Explicit
Dim Tips As New Collection
Const TIP_FILE = "\TIP.TXT"
Dim CurrentTip As Long
Private Sub Form_Load()
    Randomize
    If LoadTips(app.path & TIP_FILE ) = False Then
        lblTipText.Text = "文件没有被找到 "
    End If
End Sub
Function LoadTips(sFile As String) As Boolean
    Dim NextTip As String   ' 从文件中读出的每条提示。
    Dim InFile As Integer   ' 文件的描述符。
    
    InFile = FreeFile
    If sFile = "" Then
        LoadTips = False
        Exit Function
    End If
    If Dir(sFile) = "" Then
        LoadTips = False
        Exit Function
    End If
    
    ' 从文本文件中读取集合。
    Open sFile For Input As InFile
    While Not EOF(InFile)
        Line Input #InFile, NextTip
        Tips.Add NextTip
    Wend
    Close InFile    ' 随机显示一条提示。
    DoNextTip
    
    LoadTips = True
    
End Function
Private Sub DoNextTip()
    ' 随机选择一条提示。
    CurrentTip = Int((Tips.Count * Rnd) + 1)
    If CurrentTip > Tips.Count Then CurrentTip = Tips.Count
    DisplayCurrentTip
End Sub
Private Sub DisplayCurrentTip()
    If Tips.Count > 0 Then
        lblTipText.Text = Tips.Item(CurrentTip)
    End If
End Sub

Answer 6

问:-----------------
我创建了一个TIPOFDAY.TXT
但是我在主窗体中调用FRMTIP窗体后,提示都是乱码
不知何故???
我直接在在主窗体中用frmtip.show调用日积月累窗体有问题吗>?????

Answer 7

这不是调用方法的问题，你这样调用是对的，也可以用frmtip.show ,me或者frmtip.show 1,me来调用以让tip窗体显示在调用窗体的前端。
代码只是简单的将TIPOFDAY.TXT打开，按行读入一个集合tips中，然后显示到一个label里面而已，如果你没有改动源代码的话，出现乱码应该是TIPOFDAY.TXT这个文件的问题，你用记事本打开看看是不是也会显示为乱码？