打开窗体,清除历史记录后,留有两条分界线,
怎样在两条分界线中间表注"无历史记录",字样

已解决,谢谢"不说也罢"

[ 本帖最后由 看学 于 2010-11-25 16:08 编辑 ]

多加一个“无历史记录”的菜单。只在没有历史记录时才显示出来

将下面的代码替换掉你相应过程的代码

Private Sub Command1_Click()
  Dim i As Integer
    For i = 1 To mnuFilelist.Count - 1
        Unload mnuFilelist(i)
    Next i
       Load mnuFilelist(1)
       mnuFilelist(1).Caption = "无历史记录"
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub
Private Sub Form_Activate()
    Dim file As Long
    Dim mystring As String
    Dim s As String
    Dim strfilename As String
    strfilename = App.Path & "\cdxx.ini"
    file = FreeFile()
    On Error Resume Next
    Open strfilename For Input As #file
         Do While Not EOF(file)
            Line Input #file, mystring
            If mystring <> "" Then
               max_index = max_index + 1
               Load mnuFilelist(max_index)
               mnuFilelist(max_index).Caption = mystring
               mnuFilelist(max_index).Visible = True
            End If
         Loop
    Close #file
    If mnuFilelist.UBound = 0 Then
       Load mnuFilelist(1)
       mnuFilelist(1).Caption = "无历史记录"
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim FNum As Integer
    Dim strfilename As String
    Dim i As Integer
   
    FNum = FreeFile
    strfilename = App.Path & "\cdxx.ini"
    If Dir(strfilename) <> "" Then Kill strfilename
    Open strfilename For Output As #FNum
         For i = 1 To mnuFilelist.Count - 1
             If mnuFilelist(i).Caption <> "无历史记录" Then Print #FNum, mnuFilelist(i).Caption
         Next
    Close #FNum
    DoEvents
End Sub

谢谢"不说也罢"
谢谢!!!!!!
高手
 另外请教,我清除了历史记录后又添加了文件,"无历史记录"几个字还在,只有关闭后才没有这几个字,怎样修改代码,谢谢!!

[ 本帖最后由 看学 于 2010-11-24 16:55 编辑 ]

不要什么问题都问，先自己认真研究其中的方法才好。
用点功，这个不是问题的。

谢谢,
我就是不会判断啊?
请教!!

已解决,谢谢"不说也罢"

[ 本帖最后由 看学 于 2010-11-25 16:07 编辑 ]

...........

才有空来看论坛。

我的解决方法是：

历史记录是使用的 动态菜单，
默认那个。0 号的， 标题 就叫 无历史记录。

然后读取时，读到 第一个，就直接修改标题， 第二个以后，就先加载菜单项，再改标题。