طرح کردن مشکلات و سوالات VB

سلام
من یک مشکل دارم
من برای یک دکمه کدی نوشتم که اون رو میتونید توی فرم جاشو تغییر بدی ولی یک مشکل هست
مشکل اینه که توی رویداد کلیک این دکمه فرم جدید باز میشه و هر وقت میخوای جاشو تغییر بدی فرم جدید باز میشه و نمیزاره جای دکمه رو تغییر بدی.
میخوام یک چک باکس بزارم که وقتی فعال باشه رویداد کلیک اون دکمه غیر فعال بشه و بتونم جای دکمه رو تغییر بدم اما نمیدونم چه جوری.
البته این یک حرف بود اگه راه حل دیگه ای داره حتما بگید.

راستی یک پست بزارید تا سوالها اون جا مطرح بشه اینجوری هر کی نمیاد یک پست برای خودش بزنه.
همین پست هم خوبه به نظر من.
بسم الله

من منظور شما رو متوجه نشدم
شما کد رو بزار این جا تا رفع اشکال بشه.

نقل قول:

---

راستی یک پست بزارید تا سوالها اون جا مطرح بشه اینجوری هر کی نمیاد یک پست برای خودش بزنه.

---

نگران نباش اینجا صاحب نداره:21::31::27:

بزارید دوباره بگم. من توی رویداد کلیک یک دکمه این رو نوشتم.

form2.show

خوب حالا توی رویداد MouseDown این دکمه کدی نوشتم که بشه اون رو در حالت اجرا درگ کرد.
(همه کد درگ رو ننوشتم فقط میخواستم بگم.)

Command1.Drag
intOldx = X
intOldy = Y
Command1.MousePointer = vbSizeAll

حالا مشکل اینه که وقتی میخوام در حالت اجرا جای دکمه رو توی فرم تغییر بدم اول فرم 2 نمایش داده میشه بعدش میتونی جای دکمه رو تغییر بدی.
حالا میخوام کاری کنم که وقتی میخوای جای دکمه رو تغییر بدی فرم 2 باز نشه.

یک سوال دیگه
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
چه جوری میتونم این کارو بکنم.

اول نشناختمت Mr Cracker آواترت عوض شده.

1- برای اینکار شما باید یک متغیر سراسری برای دو فرم از نوع Boolean تعریف کنید :

کد:

---

Public Sub ShowForm()
Dim a As Boolean
End Sub

---

* کد را باید در بخش General فرم اول بنویسید !

2- باید شما در فرم دوم در رویداد Formload کد زیر را بنویسید :

کد:

---

Private Sub Form_Load()
Call Form1.ShowForm
a = True
End Sub

---

3- در رویداد کلیک Command1 که در فرم اول گذاشتید کد زیر را بنویسید :

کد:

---

Private Sub Command1_Click()
If a = True Then
 
Else
Form2.Show
End If
End Sub

---

نقل قول:

---

نوشته شده توسط Lee_Young_Ae2027 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

1- برای اینکار شما باید یک متغیر سراسری برای دو فرم از نوع Boolean تعریف کنید :

کد:

---

Public Sub ShowForm()
Dim a As Boolean
End Sub

---

* کد را باید در بخش General فرم اول بنویسید !

[/CODE]

---

البته متغيير از نوع public بهتره در قسمت General مربوط به module تعريف شود.
Thanks

دستت درد نکنه
فقط یک سوال دیگه مونده.
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
البته جوری که من میخوام در ضمن من از دیتا بیس هم استفاده نمیکنم.
چه جوری میتونم این کارو بکنم.

نقل قول:

---

نوشته شده توسط AQOUA [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته متغيير از نوع public بهتره در قسمت General مربوط به module تعريف شود.
Thanks

---

بله ... اینم یه راهشه !

ولی نخواستم زیاد پیچیده بشه !

نقل قول:

---

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دستت درد نکنه
فقط یک سوال دیگه مونده.
من میخوام برنامه نوشته هایی رو که در لیبل و و تکس باکس برنامه است رو توی Word Pad کپی کنه.
البته جوری که من میخوام در ضمن من از دیتا بیس هم استفاده نمیکنم.
چه جوری میتونم این کارو بکنم.

---

یعنی شما میخواید نوشته هایی که تو Label و Text Box فرمتون هست رو تو یه فایل .txt ذخیره کنید ؟

یا میخواید نوشته ها رو به حافظه ی Clipboard منتقل کنید و بتونید تو یه فایل با فرمت .txt پیست کنید ؟

فکر کنم منظور ایشون اینه که مثل برنامه های فارسی نویس
متن رو داخل ورد کنن
و احتملا برا این کار باید از ole استفاده کرد و
اگه نشد از api.

نقل قول:

---

نوشته شده توسط Lee_Young_Ae2027 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

یعنی شما میخواید نوشته هایی که تو Label و Text Box فرمتون هست رو تو یه فایل .txt ذخیره کنید ؟
یا میخواید نوشته ها رو به حافظه ی Clipboard منتقل کنید و بتونید تو یه فایل با فرمت .txt پیست کنید ؟

---

البته اولیش بهتره اگه نشد دومی
متشکرم.

نقل قول:

---

نوشته شده توسط Mohsen.Sh_PC [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته اولیش بهتره اگه نشد دومی
متشکرم.

---

پس ...

روش اول :

کد:

---

Private Sub Save_Click()
Dim a As Integer
a = FreeFile
Open "D:/tamrin.txt" For Append As #a
Write #a, Label1.Caption
Write #a, Text1.Text
Close
End Sub

---

* یه فایل با نام Tamrin در درایو D بوجود میاد که نوشته های Label1 و Text1 در اون قرار دارند !
* مسیر و اسم فایلی که من تو "" گذاشتم رو میتونید تغییر بدید !

روش دوم :

کد:

---

Private Sub Copy_Click()
Clipboard.SetText (Label1.Caption)
Clipboard.SetText (Text1.Text)
End Sub

---

* نوشته ی Label1 و Text1 به حافظه منتقل میشن !