I have problem
My Step:
Start> Programs > VB
Select VB app.Wiz.
next
select MDI
rpt.7 next
done
When Start Run )Ctrl+F5_
I can see that Windows "Document 1"
what is that, is simple notepad ?
Please!
Printable View
I have problem
My Step:
Start> Programs > VB
Select VB app.Wiz.
next
select MDI
rpt.7 next
done
When Start Run )Ctrl+F5_
I can see that Windows "Document 1"
what is that, is simple notepad ?
Please!
Yes, but it still needs a whole lot of code to work properly...
Good Luck
i guess it is a richtextbox on a child form, it could be used to make your own notepad or other editor type program
Code:
My Step:
Start> Programs > VB
Select VB app.Wiz.
next
select MDI
rpt.7 next
done
In "frmDocument.frm"
that "rtfText" deleted
insert "Text1" object
Text1.MultiLine "True"
Text1.ScrollBars "Both"
Problem Is where can found some information To: selText
Ctrl+A
Ctrl+C
Ctrl+V
any example
Please!
Search this forum... You will find lots of examples.... :wave:
:ALL EDIT:
yes, I found solution Ctrl +A,C,V.
Now, I have problem, how to say: goodbye (child_form.caption) ?
my step:
File>New
show windows; "mydoc1"
File>New
show windows; "mydoc2"
File>New
show windows; "mydoc3"
Code:'frmMain.frm
Private Sub MDIForm_Unload(Cancel As Integer)
'//how to goodbye Each.caption ?
Dim objForm As frmDocument
For Each objForm In Forms
msgbox "goodbye" & objForm.Caption
'msgbox "goodbye mydoc1"
'msgbox "goodbye mydoc2"
'msgbox "goodbye mydoc3"
Next objForm
End Sub
Private Sub LoadNewDoc()
Static lDocumentCount As Long
Dim frmD As frmDocument
lDocumentCount = lDocumentCount + 1
Set frmD = New frmDocument
frmD.Caption = "mydoc" & lDocumentCount
frmD.Show
End Sub