رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

کار با ظاهر متن در بیسیک

پست های پیشنهاد شده

شایان آباد    6,138

بنیان گذار و مدیر فنی

درود

در این تاپیک به اموزش کار با آموزش ظاهر متن لیبیل میپردازیم

ابتدا 5 باتن اد میکنیم به پروژه + لیبیل

حالا روی فرم دو بار کلیک میکنیم تا وارد Form_Load بشیم و کد زیر رو در Form_Load بزارید !

Label1.Caption = "Learn-net.ir"

الان متن لیبیل رو برابر کردیم با learn-net.ir

حالا رو یکی از باتن ها دوبار کلیک میکنیم تا وارد رویداد کلیک باتن شیم !

بعد کد های زیر رو در رویداد کلیک قرار میدیم

Label1.Font.Bold = True

learn-net.ir

متن ما درشت شد

کدهای کلی :

Private Sub Command1_Click()
Label1.Font.Bold = True
End Sub

---------------------------------------

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

Label1.Font.Underline = True

learn-net.ir

متن ما دارای خط زیر شد

کدهای کلی :

Private Sub Command2_Click()
Label1.Font.Underline = True
End Sub

---------------------------------------

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

Label1.Font.Strikethrough = True

learn-net.ir

متن ما دارای روی خط شد

کدهای کلی :

Private Sub Command3_Click()
Label1.Font.Strikethrough = True
End Sub

--------------------------------------

......... کدهای زیر رو قرار میدیم

Label1.Font.Italic = True

learn-net.ir

خط ما کج (خوابیده) شد

کدهای کلی :

Private Sub Command4_Click()
Label1.Font.Italic = True
End Sub

------------------------------------

.......... کدهای زیر رو قرار میدیم (برای برگشت به حالت اول)

Label1.Font.Bold = False
Label1.Font.Underline = False
Label1.Font.Italic = False
Label1.Font.Strikethrough = False

learn-net.ir

متن ما ساده شد (مثل اول)

کدهای کلی :

Private Sub Command1_Click()
Label1.Font.Bold = True
End Sub

Private Sub Command2_Click()
Label1.Font.Underline = True
End Sub

Private Sub Command3_Click()
Label1.Font.Italic = True
End Sub

Private Sub Command4_Click()
Label1.Font.Strikethrough = True
End Sub

Private Sub Command5_Click()
Label1.Font.Bold = False
Label1.Font.Underline = False
Label1.Font.Italic = False
Label1.Font.Strikethrough = False
End Sub

موفق باشید

برنامه نویس ایرانی

به اشتراک گذاری این ارسال


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • کاربران آنلاین در این صفحه   0 کاربر

    هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×