نرم افزار و نکات کاربردی

صلوات برای سلامتی پدر و مادرها و مدافعین حرم

نرم افزار و نکات کاربردی

صلوات برای سلامتی پدر و مادرها و مدافعین حرم

نرم افزار و نکات کاربردی

امیدوارم بتوانم در این وبلاگ به شما دوستان در زمینه های مختلف کامپیوتری کمک کنم .
اگه مشکلتون تو این سایت با دانش اندک بنده حل شد خدا رو شاکر هستم
و خواهشمندم به دو مورد زیر عمل کنید :
1- یک صلوات برای سلامتی پدر و مادرها بفرستید
2- یک صلوات برای سلامتی مدافعین حرم ( و همینطور بردار خانومم ) بفرستید

تبلیغات
Blog.ir بلاگ، رسانه متخصصین و اهل قلم، استفاده آسان از امکانات وبلاگ نویسی حرفه‌ای، در محیطی نوین، امن و پایدار bayanbox.ir صندوق بیان - تجربه‌ای متفاوت در نشر و نگهداری فایل‌ها، ۳ گیگا بایت فضای پیشرفته رایگان Bayan.ir - بیان، پیشرو در فناوری‌های فضای مجازی ایران
طبقه بندی موضوعی
آخرین نظرات

۷ مطلب با موضوع «کدنویسی» ثبت شده است

ارسال عکس با بلوتوث و برنامه های دیگر در B4A

دوستان می تونید با این قطعه کد ( که خودم راستو ریجش کردم ) عکس یا هر فایل دیگی رو از برنامتون برای گوشی دیگه بفرستید :

If Not(File.Exists(File.DirRootExternal & "/majid/" ,"")) Then
File.MakeDir (File.DirRootExternal ,"majid")
End If
File.Copy(File.DirAssets ,"main.jpg",File.DirRootExternal & "/majid/","main.jpg")
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/majid/main.jpg"), Array As String("java.lang.String"))
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("image/*")
share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _
   Array As Object(f), Array As String("java.lang.String")))
share.WrapAsIntentChooser("Share JPG")
StartActivity(share)

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

تمام نسخه های برنامه ی محبوب و مفید B4A رو می تونید در ادامه ی همین پست

بطور مستقیم از وبلاگ بنده دانلود کنید

درضمن آخرین کتابخانه ها رو هم براتون قرار دادم

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

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

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



یک DLL مهم

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

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

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

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


Microsoft.VisualBasic.PowerPacks.Vs.dll


دریافت


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

کد نویسی در اکسل

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

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

بنده در این جا یک سایت مناسب جهت آموزش برای شما قرار می دهم ( البته انگلیسیه ، خوب برو چهار تا کلمه یاد بگیر )


http://excelvbatutor.com/vba_tutorial.html


http://www.excel-vba-easy.com/


http://www.techonthenet.com/excel/formulas/index_vba_alpha.php



البته درست کردن فرم اکسل بهمراه فرمول نویسی و برنامه نویسی در آن رو اگه بخاید می پذیرم ( در قسمت نظرات )

بارگذاری سریعتر دیتاگرید 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