موضوع لا يهمكم

كيف يعني , هل كما وضحتها أنت في كودك ؟

اخي HGB انا حاليا اعد درس لمنتدى الفيجوال

واريد ان اضع الدرس في ملف PDF واريد ان تظهر الاكواد في شكل اطار

اكتب الدرس بالوورد ونسقه بالتنسيق المطلوب

وبعد ذلك اطبعه على الطابعة الافتراضية التي ينزلها برنامج

adobe acrobat writer

واسمها الافتراضي

Acrobat PDFWriter

أظن هذه أسهل طريقه لانشاء ملفات البي دي اف

وفقك الله

Dim TextVariable As String

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    TextVariable = PropBag.ReadProperty("Text", "There is no message")
End Sub

Public Property Get Text() As String
    Text = TextVariable
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Text", TextVariable, "There is no message")
End Sub

Public Property Let Text(ByVal New_Text As String)
    TextVariable = New_Text
    PropertyChanged "Text"
End Property

Private Sub Command1_Click()
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub

Private Sub Command1_Click()
    MsgBox (TextVariable)
    RaiseEvent Click
End Sub

Dim TextVariable As String

Event Click()
Event KeyPress(KeyAscii As Integer)

Private Sub Command1_Click()
    MsgBox (TextVariable)
    RaiseEvent Click
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub

Private Sub UserControl_Resize()
    Command1.Width = UserControl.Width
    Command1.Height = UserControl.Height
End Sub

Public Property Get Text() As String
    Text = TextVariable
End Property

Public Property Let Text(ByVal New_Text As String)
    TextVariable = New_Text
    PropertyChanged "Text"
End Property


Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    TextVariable = PropBag.ReadProperty("Text", "There is no message")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Text", TextVariable, "There is no message)  
End Sub

شكرا لك اخي sunny على المساعدة

Event Click()
Event KeyPress(KeyAscii As Integer)