یک ActiveX Dll برای نشون دادن Tray Balloon

اگه خیلی به زیبایی و ارتباط خوب با مخاطب اهمیت می دین از OCX زیر استفاده کنید که بعداً نسخه های بالاترشو واستون می ذارم ....به شکل یه نگاه بکنید حلّه.....

مثال برای نمایش بالون :

Balloon1.ShowBalloon Me, balIconInfo, "vbprogramming.blogfa.com", "Test of Balloon OCX", 50000, , , 1190, 850

آرگومان ها : شما باید این مقادیر رو به ActiveX Object fndk ...

نام فرمی که بالون از اونجا قراره درست بشه .(در مثال Me )

نوع بالون (اخطار هشدار و ...)

متن بالون..... تیتر بالون.....

مدت زمان نمایش بالون ( 1000=1 ثانیه)       Optional

رنگ های متن و زمینه                                 Optional

X , Y مختصات ایجاد بالون                           Optional

لینک دانلود: Balloon Ocx Download

تغییر شکل اشیا برنامه به StyleXp

(در جواب دوست خوبی که تو نظرات در این مورد سوال کرده بودن ):

حتماً متوجه شده اید که برنامه تولیدی شما با VB دکمه ها Option Button ها و غیره با شمایل آنها در برنامه های Xp متفاوتند .برای زیبایی برنامه و تغییر شکل اشیا برنامه تون این کار رو انجام دهید.فایل زیر رو دانلود کنید وارد پروژه ای که مورد نظرتون هست بشید و روی لیست شاخه ای سمت راست بالای صفحه که شامل لیست فرمه هاتون هست بروید و روی Forms رایت کلیک کنید و از Add File رو بزنید و همین فایلی رو که دانلود کردید رو انتخاب کنید .گزینه ای که اسمش XpStiles هست به پروژخ اضافه میشه.

کار این فایل تغییر در روند Compile برنامه هست و بعد از اینکه برنامه Compile شد و به صورت EXE در آمد وقتی برنامه رو اجرا کنید تغییر رو می بینید پس نگران اینکه چرا تغییرات در زمان تست برنامه توسط خود Visual Basic اعمال نشده نباشید .

لینک دانلود : XPStiles.res Download For Changing VB Style

به تغییرات زیر توجه کنید.

نیمه محو کردن Form ها یا Trasparent Forms

اگر دوست دارید مثل شکل زیر فرمتون رو نیمه محو کنید از برنامه زیر که گذاشتم استفاده کنین.برای زیبایی برنامه و یا About Box ها , WelCome Screen ها و ... خیلی بدرد می خوره .....

لینک دانلود : VB Form Transparent Download

استفاده از Microsoft Agent برای تزیین برنامه

microsoft agent که فایل dll ی به منبع agentctl.dll دارد که همراه با vb در system32 نصب می شود.می توانید روی toolbar رایت کلیک کنید و از Components اون رو add کنید .Object ایجاد شده سر یک آدمه این object رو روی فرمنون drag کنید و نام اونو همون نام خودش که Agent1 هست رو بذارین باشه .....

بعد کد زیر رو توی یک Command Button قرار بدین .در آخر توضیح میدم چه کار می کنه که سرسری فقط copy paste نکرده باشین D:

With Agent1.Characters
    .Load ("merlin")            '1
    .Item("merlin").Show        '2
    .Item("merlin").MoveTo 500, 500 '3
    .Item("merlin").Think "welcome to vbprogramming.blogfa.com" '4
    .Item("merlin").Hide        '5
End With
End Sub

---

 لینک دانلود برنامه : VB Microsoft Agent Control Sample Download

---

1 - با فرمان load این object که merlin نام داره رو load می کنیم .

2 - merlin رو روی صفحه نشون میدیم .

3 - با فرمان move to این merlin و به مختصات دلخواه بر حسب twip می بریم .

۴ - نمایش متن بالای سر merlin .

5 - پنهان کردن Merlin .

Icon برای برنامه هاتون...

یک برنامه باید از نظر زیبایی نیز قابل توجه و جذاب باشه...تا بتونه کاربر ها رو به خودش جذب کنه...از تصاویر ...Flash ...و Icon های مختلف برای این امر استفاده کنین....اینجا دو لینک برای یک سری Icon بدرد بخور برای برنامه های تولیدی تون گذاشتم ....

دانلود 1 :   Toolbar Icons 

دانلود 2 :   Windows XP Icons

یک پردازشگر گرافیکی 3D برای نشان دادن کلمات

این یک ActiveX Control هست که با دریافت آرگومان های متن - فونت - سایز و رنگ پس زمینه متنی رو در حال چرخش در Object به ما میده ....

برای استفاده در قسمت Components این فایل ocx رو Add کنین و از این object روی فرمتون قرار بدین.کد زیر مثالی برای چگونگی استفاده از این ActiveX Control هست.

TextRotate1.BeginRotation "Vbprogramming.blogfa.com","tahoma","10",Black

 لینک دانلود: Vb 3D Rotate Text Download

پردازش تصویر با VB

این یک برنامه خوبه که می تونه تصاویر انتخابی شما رو پردازش کنه و چند تا فلتر مثل Blure Sharper  داره .....

لینک دانلود : VB Image Proc Download

 

نقاشی با VB

این یک برنامه خوب و ساده برای نشون دادن اینکه چطوری میشه تو VB نقاشی کرد .شاید خودم کاملترش کردم و دوباره براتون گذاشتم .....

لینک دانلود : VB painting Download

نوشتن متن به صورت کمان

برای این کار می تونین از دو تکنیک موجود در این برنامه اسفاده کنین.....

لینک دانلود : VB Arc Text Download

Effect دادن به فرم در load و unload

اگه می خواین هنگام باز و بسته شدن فرمتون یک effect  داشته باشه به کد برنامه زیر توجه کنین .قشنگه......

لینک دانلود : VB Form Effect

 

ایجاد یک فرم خط خطی تو VB

فقط یک Timer رو فرم بذارین و ترجیحاً interval اونو 10  قرار بدین کد زیر رو هم کپی کنین تا فرم خوشگلی ایجاد بشه .....

Private Sub Timer1_Timer()
    If Me.WindowState = vbMinimized Then Exit Sub
    Me.BackColor = vbBlack
    Me.ScaleHeight = 100
    Me.ScaleWidth = 100
    For X = 0 To 300
        DoEvents
        X1 = Int(Rnd * 101)
        X2 = Int(Rnd * 101)
        Y1 = Int(Rnd * 101)
        Y2 = Int(Rnd * 101)
        colo = Int(Rnd * 15)
        Me.Line (X1, Y1)-(X2, Y2), QBColor(colo)
        Me.Line (X1, Y2)-(X2, Y1), QBColor(colo)
        Me.Line (X2, Y1)-(X1, Y2), QBColor(colo)
        Me.Line (Y1, Y2)-(X1, X2), QBColor(colo)
    Next X
End Sub

---

یک media player با VB

این برنامه اساس کارش Api هست که خیلی قشنگ کد نویسی شده البته کامل نیست .حودتون یک Browse واسش درست کنین.اگه خواستین با استفاده از مطلب قبلی فرمش رو دایره ای کنین و Background واسش بذارین یا Skin ش رو عوض کنین تا نون و آبدار بشه .......

لینک دانلود برنامه :VB Media Player With API Download

ایجاد یک فرم دایره ای شکل خیلی ساده

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

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Form_Load()
Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
   
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

یک برنامه واسه چرخوندن(Rotate) متن ها

این برنامه جالبیه که می تونین با زاویه دادن و سایز دادن و سایر امکاناتی که تو کد بر نامه هست ولی تو design برنامه استفاده نشده استفاده کنین.برای تزیین برنامه یا چاپ کاربرد داره......

لینک دانلود :ّّFont Rotator Download

یک فایل ocx برای لایه(Skin) گذاشتن روی فرم

این فایل ocx رو دانلود کنید و بعد از ایجاد یک پروژه جدید روی نوار ابزار برید و RClick کنید .Components رو انتخاب کنید و از Browse همین فایل OCX رو انتخاب و OK کنید.همینطور که میبینین یک Object جدید به نوار ابزار شما اضافه شده.اونو رو فرمتون قرار بدین و اجراش کنید برنامتونو.می بینید که شکل فرمتون عوض شده که به زیبایی بر نامتون خیلی کمک می کنه.کنار دکمه Minimize یک icon جدید اضافه شده که می تونین نوع و رنگ skin رو عوض کنید.واقعاً عالیه..................حتی می تونین تصاویری که خودتون دلتوم می خواد رو skin برنامتون بکنینو صفا کنین.

در یافت فایل : VB Skinner

                                           

ساعت آنالوگ از خودم....

اینم یک ساعت عقربه ای که بدردتون میخوره احتمالاً....

لینک دانلود: Clock

ScreenShot:

 

ایجاد طیف رنگ متغیر با VB

این یک کد خیلی جالبه که می تونین یک طیف رنگ  RGB باهاش درست کنین.فقط لازمه یک تایمر با interval 10 روی فرم قرار بدین و این کد رو درونش بنویسین.

Private i As Double

Private Sub Timer1_Timer()
   Dim intLoop As Integer
      Me.DrawStyle = vbInsideSolid
   Me.DrawMode = vbCopyPen
   Me.ScaleMode = vbPixels
   Me.DrawWidth = 2
   Me.ScaleHeight = 256
   For intLoop = 0 To 255
   Me.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0 + i, 255 - intLoop), B
      Next intLoop
      i = i + 1
End Sub

 ScreenShot  برنامه:

پخش فایلهای wav با vb

با استفاده از این Api و دادن مسیر فایل در File path می تونین هر فایل wav رو پخش کنید.

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Function Sound(pathfile As String)
    SoundPlay = PlaySound(pathfile, 0&, &H1)
End Function

چطوری جسمی را به طور دایره ای حول محور بچرخونیم

امروز یک بر نامه واستوم معرفی میکنم که جالبه .این بر نامه الگوریتمیه که یک Objecto میشه باهاش چرخوند.در قسمت Speed هرچه مقدار کمتر باشه object تندتر میچرخه.البته حرکات نیم دایره بیضی و مربعی رو هم میشه در اورد باهاش.کلا الگوریتم به درد بخوریه .

لینک برنامه : Gyrating With VB