امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم

بقیه در ادامه مطلب ؟

خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم

حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :

 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   'Button = 1 :::>>> For LeftClick
   'Button = 2 :::>> For RightClick
    If Button = 2 Then
        PopupMenu MnuFile
    End If
    
End Sub

حالا برنامه را Run کنید و بر روی فرم راست کلیک کنید می بینید که فرم ظاهر میشود

اموزش توابع داخلي Visual Basic ( نزديک به 1۷۷ تابع )قدر مطلق يك عدد رو برميگردونه

appActivate .2

Asc .3

AscB .4

AscW .5

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

این دو تابع fseek و ftell هستش .

تابع fseek  اشاره گر فایل رو به محدوده ای که شما به صورت integer به اون میدهید ارسال میکنه :

بقیه در ادامه مطلب ؟

در این بخش تصمیم دارم نحوه ساختن فولدر , از بین بردن فولدر و برخی عملیات دیگر مربوط به فایلها

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

به اطمينان، قبلاً در برنامه نويسی (لااقل در Basic که پيش فرض بحث ما معرفی شده بود) از متغيرها زياد استفاده کرده ايد. در برخی زبانهای برنامه نويسی (مثل Basic) ، نوع متغيرهای بکار رفته در برنامه، لازم نيست از قبل تعريف شده باشد و در هنگام اجرا، کامپايلر، خود، آن را به نوع مورد نياز (مثل Integer برای برای داده های عددی صحيح، يا String برای نوع داده رشته ای و کاراکتری و ...) تعريف و اجرا خواهد کرد. اما در برخی ديگر (مانند زبان برنامه نويسی Pascal)لازم است، نوع داده متغيرهای بکار رفته، در جايی از برنامه (و عموماً قبل از استفاده از آن) تعريف شوند.

بقیه در ادامه مطلب ؟

فرض کنيد بر روی فرم، يک Text Box به نام txtUserName قرار داده ايم و بخواهيم کاربر، هر حرفی

 را داخل آن نوشت، با حرف بزرگ انگليسی زده شود (يعنی اگر وارد کرد a، در Text Box درج شود

 A) در اين صورت کافی است برای رويداد KeyPress از آن بنويسيم:

                   (Private Sub txtUserName_KeyPress (KeyAscii As Integer

                                           ((( KeyAscii = ASC (Ucase (Chr (KeyAscii

                                                                                         End Sub

شايد زمانی که داشتيد روی مشخصات (Properties) مربوط به Text Box نظر می کرديد، مشخصه causes Validation را نيز ديده باشيد که ما در بخش قبل از آن نام نبرديم. اين مشخصه در بسياری از VCLها نيز وجود دارد و دارای کاربرد بسيار زيبايی است که شايد اگر وجود نداشت، برای شبيه سازی آن بوسيله کدنويسی، زمان زيادی را صرف خود می کرد.

فرض کنيد بر روی فرم يک Text Box به نام txtNumber وجود دارد که برای دريافت نمره يک درس دانش آموزی از کاربر، استفاده می شود. ترجيح می دهيم کاربر نتواند اين فرم را save کند (نتواند به سراغ کليد cmdSave برود) مگر اينکه نمره صحيح (که در فاصله صفر تا بيست است،) را وارد نموده باشد. اما مثلاً بتواند روی دکمه cmdCancel برود و فرم را Cancel نمايدو يعنی می خواهيم

بقیه در ادامه مطلب ؟