سوال :دی

سلام خدمت دوستان برنامه نویس :20:
من تازه شروع کردم و دارم از روی یک کتاب می خونمو جلو میرم اما کتاب ماله vb 6 هستش و vbــه من 2008 express
خلاصه اینکه یه سری چیزاش برا من کار نمی کنه
اینارو اگه ممکنه مرحمت کنید :11: :
1.دستور برای دکمه ی select all توی یک برنامه ی متنی
2.میخوام وقتی فرم رو resize میکنم textbox ای که توش هست هم به همون نسبت resize شه
خود کتاب برای 2 اینو نوشته بود :

Private Sub Form_Resize()
textbox1.width = form.scalewidth
و همچنین برای height

ولی کار نمی کنه و ارور هم نمیده :دی
لطفا راهنمایی کنید :11:

نقل قول:

---

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

من تازه شروع کردم و دارم از روی یک کتاب می خونمو جلو میرم اما کتاب ماله vb 6 هستش و vbــه من 2008 express

---

ببخشید دوست عزیز من تا حالا این نسخه رو ندیده بودم. دوستان اطلاعاتی دارند؟

منظورتون VS .Net 2008 نیست؟

microsoft visual basic 2008 express edition
به نظرتون از همون 6 استفاده کنم بهتره؟

نقل قول:

---

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

microsoft visual basic 2008 express edition
به نظرتون از همون 6 استفاده کنم بهتره؟

---

دوست عزیز با اومدن فریم ورک دات نت و ویژوال استودیو دیگه vb6 منسوخ شده اونم به طور رسمی
تا چند سال دیگه هم توی هنرستان ها دات نت تدریس میشه
سعی کنید بروز باشید

خوب الان من چیکار کنم ؟ :دی
سوالم رو میشه جواب بدین لطفا ؟

نقل قول:

---

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

microsoft visual basic 2008 express edition
به نظرتون از همون 6 استفاده کنم بهتره؟

---

چه کاریه؟ به خاطر 2 تا فرمول ساده 10 سال بر گردید عقب؟

البته من خودم هم با VB 1998 کار می کنم اما خوب. مجبورم ...

درسته رو همین میمونم . ولی میشه یکی سواله اولمو جواب بده ؟ همین فرمولا ؟؟

سلام

به خاطر شما رفتم یه Vs 2008 خریدم روش کار کردم. تا زمانی که دوستان حرفه ای جوابتون رو بدند فکر کنم این کد ها کار راه انداز باشه:

1- انتخاب کل متن موجود در تکست باکس:

البته یه تابع بود به نام Selectall ولی نمیدونم چرا کار نمیکرد.

کد:

---

        Dim lent As Byte
        lent = Val(Len(TextBox1.Text))
        TextBox1.Select(0, lent)

---

2- تغییر سایز شیئ به نسبت فرم:

کد:

---

    Dim OrgW As Integer

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Dim Nesbatw As Double
        Nesbatw = Val(TextBox1.Width) / Val(Me.Width)
        TextBox1.Width = (Me.Width - Orgw) * Nesbatw + TextBox1.Width
        Orgw = Me.Width
    End Sub

    Private Sub Form1_ResizeBegin(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeBegin
        Orgw = Me.Width
    End Sub

---

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

گر کسی جوابتون رو نداد پیشنهاد می کنم با _H2_ در میون بذارید.

مشکلی بود در خدمتم ...

خیلی ممنون ولی یه سوال :
توی این کدی که برای تغییر سایز دادین , نوشتین Orgw = me.width بعد نوشتین me.width - orgw . خب اینکه صفر میشه ؟ :دی
میدونم همتون می خندین ولی حالا اندفرو نخندین به منم یاد بدین :دی ممنون

نقل قول:

---

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

خیلی ممنون ولی یه سوال :
توی این کدی که برای تغییر سایز دادین , نوشتین Orgw = me.width بعد نوشتین me.width - orgw . خب اینکه صفر میشه ؟ :دی
میدونم همتون می خندین ولی حالا اندفرو نخندین به منم یاد بدین :دی ممنون

---

:16::16::16:

عزیز دلم OrgW = Me.Width که تو قسمت دوم تعریف شده مربوط به ResizeBegin هست. یعنی وقتی که فرم شروع به کشیده شدن میکنه این متغیر تعریف میشه. بعد توی کد قسمت اول که نوشته Me.Width - Orgw مربوط میشه به هنگام کشیده شدن (یعنی این دلتای عرض فرم هست:31:)

همین.

خیلی سخت نبودا. یکم فکر می کردی متوجه میشدی.

مشکلی بود من در خدمتم :40: