TDM said:ela wedak machan.....matath podi hlp ekak one,.,
1)machan, machine eke thiena text file ekak(i mean .txt extention file) ethule thiyena wrds read karaganda i vb walin mokak hari .txt extention ekata save karandai.. karana heti kiyala denda puluwanda...,.,.
2) machan mokak hari extention ekak vb ethuledima define karna vidihak kiyanna puluwanda..(without manually configering a new extention )
for an example can you tell me the way to creat a extention like *.tdm..and also machan a wage extention ekakin file ekak (text) save karana hetith ehema save karapu ekak read karana hetith poddak kiyanawada...
(IN VB 6)
thanX mate....i'm waiting 4 an answr..k![]()
easima vidiha dennada
pennala thiyena eka D click karala
next > finish
file > save , code tika mehema venas karanna , red colour eva
Private Sub mnuFileSave_Click()
Dim sFile As String
If Left$(ActiveForm.Caption, 8) = "Document" Then
With dlgCommonDialog
.DialogTitle = "Save"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "TDM (*.TDM)|*.TDM"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtfText.SaveFile sFile
Else
sFile = ActiveForm.Caption
ActiveForm.rtfText.SaveFile sFile, 1
End If
End Sub
save as eka mehema
file > open , eka mehemaPrivate Sub mnuFileSaveAs_Click()
Dim sFile As String
If ActiveForm Is Nothing Then Exit Sub
With dlgCommonDialog
.DialogTitle = "Save As"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "TDM (*.TDM)|*.TDM|Text File|*.txt|All Files (*.*)|*.*"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.Caption = sFile
ActiveForm.rtfText.SaveFile sFile, 1
End Sub
Private Sub mnuFileOpen_Click()
Dim sFile As String
If ActiveForm Is Nothing Then LoadNewDoc
With dlgCommonDialog
.DialogTitle = "Open"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "TDM (*.TDM)|*.TDM|Text File|*.txt|All Files (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtfText.LoadFile sFile
ActiveForm.Caption = sFile
End Sub
i'm watting ur reply
Last edited:



