کدی برای پرینت گرفتن

 با استفاده از کد زیر که در کلاس فرم 1 تعریف شده است شما می توانید یک فایل متنی را با هر چند صفحه پرینت بگیرید

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

یک DLL مهم

اگر برنامه ای به زبان ویژوال بیسیک دات نت نوشته باشید و بخواهید آن را بدون درست کردن فایل نصب کننده به کامپیوتر دیگری منتقل کنید

اولین کاری که می کنید برداشتن فایل EXE آن فایل است

بله اساسی ترین کار همین مورد است البته این را هم باید به یاد داشته باشید که در کامپیوتر مقصد فریم ورک هم باید نصب شده باشد

با همه ی این ها اگر برنامه را روی کامپیوتر مقصد اجرا کنید با مشکل مواجه می شوید و زیرا باید در کنار برنامه یک DLL باشد که نام و لینک دانلود آن در زیر آمده است

Microsoft.VisualBasic.PowerPacks.Vs.dll

دریافت

حجم: 253 کیلوبایت

بارگذاری سریعتر دیتاگرید DataGridView

شاید برای شما پیش آمده باشد که به خاطر تعداد زیاد رکوردهای دیتابیس برنامه تان سرعت لود شدن لیست رکوردها ( دیتاگرید ) پایین بیاید

با استفاده از کد زیر در قسمت لود فرمتان می توانید سرعت بالا آمدن لیست را بهبود ببخشید

Dim p = GetType(DataGridView).GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)

p.SetValue(Me.DataGridViewName, True, Nothing)

تغییر اندازه ی کنترل با کلید میانی موس

در این مثال با استفاده از رویداد چرخش کلید میانی موس در فرم 1 می توان سایز کنترل را تغییر داد

Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel

        ' Delta ' تعداد چرخش کلید میانی موس را در جهت بالا - مثبت و پایین - منفی برمیگرداند

        

        If e.Delta >= 0 Then

( PictureBox1.Size = New Size(PictureBox1.Width + 2, PictureBox1.Height + 2)                                                           

        Else

( PictureBox1.Size = New Size(PictureBox1.Width - 2, PictureBox1.Height - 2)

        End If

End Sub