By this code you can open your file (eg: example.myfile)

Category:

Files and Directories

Type:

Snippets

Difficulty:

Intermediate

Author:

Keith Wickramasekara

Version Compatibility: Visual Basic 6

More information:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Global BoldSatus As Boolean Global UnderStatus As Boolean Global FSize As Integer Global BStatus As Boolean Global IStatus As Boolean

Code:

This code is for the form1....

Private Sub mnuClose_Click()
RTB.Text = ""
RTB.Refresh
If RTB.Text = Clear Then
mnuClose.Enabled = False
mnuClose.Visible = False
mnuClose.Caption = "Close"
End If
End Sub

Private Sub mnuExit_Click()
Unload frmFontOpt
Unload Form1
Unload frmLogin
End Sub

Private Sub mnuFont_Click()
frmFontOpt.Show
End Sub

Private Sub mnuOpen_Click()
CommonDialog1.Filter = "My files (*.MyFile)|*.MyFile"
CommonDialog1.ShowOpen
RTB.LoadFile (CommonDialog1.FileName)
mnuClose.Visible = True
mnuClose.Enabled = True
mnuClose.Caption = "Close " & CommonDialog1.FileTitle
End Sub

Private Sub RTB_Change()
    If RTB.Text = Null Then
    mnuClose.Visible = False
    mnuClose.Caption = "Close"
    End If
End Sub

This code is for frmFontOpt.....

Private Sub chkBold_Click()
If chkBold.Value = vbChecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        BStatus = True
        Form1.RTB.SelBold = True
ElseIf chkBold.Value = vbUnchecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        BStatus = False
        Form1.RTB.SelBold = False
End If
End Sub

Private Sub chkUnder_Click()
If chkUnder.Value = vbChecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        Form1.RTB.SelItalic = True
        IStatus = True
ElseIf chkUnder.Value = vbUnchecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        Form1.RTB.SelItalic = False
        IStatus = False
    End If
End Sub

Private Sub cmdCancel_Click()
Form1.RTB.SelFontSize = FSize
Form1.RTB.SelBold = BStatus
Form1.RTB.SelItalic = IStatus
Unload Me
End Sub

Private Sub cmdOk_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    If chkBold.Value = vbChecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        Form1.RTB.SelBold = True
        BoldSatus = True
    Else
        BoldSatus = False
    If chkUnder.Value = vbChecked Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        Form1.RTB.SelItalic = True
        UnderStatus = True
    Else
        UnderStatus = False
    End If
    End If
End If
Unload frmFontOpt
End Sub

Private Sub Form_Load()
    
    If BStatus = True Then
        chkBold.Value = vbChecked
    Else
        chkBold.Value = vbUnchecked
    End If
    
    If IStatus = True Then
        chkUnder.Value = vbChecked
    Else
        chkUnder.Value = vbUnchecked
    End If
    
               
    FSize = Form1.RTB.SelFontSize
    BStatus = Form1.RTB.SelBold
    IStatus = Form1.RTB.SelItalic
End Sub

Private Sub lstSize_Click()
If Not lstSize.Text = "" Then
        Form1.RTB.SelStart = 0
        Form1.RTB.SelLength = Len(Form1.RTB.Text)
        Form1.RTB.SelFontSize = lstSize.Text
End If
End Sub

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.

Download file opener.zip