معرفی OCX

[sohrab o]

تبدیل فرمت های عکس به یکدیگر

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

دو نوع ToolBar برای برنامه ها

دو نوع تقویم جالب

غیر فعال کردن اجزاء ویندوز

نمایش فایل های GIF در VB

ماشین حساب معمولی

یه تقویم دیگه

4 کلید زیبای دیگه

یه OCX دیگه برای نمایش فایل های GIF

OCX برای عکس گرفتن و فیلم گرفتن از صفحه نمایش

OCX برای تغییر رزولیشن

یک کلید زیبای دیگه البته اگه تکراری نباشه

[sohrab o]

اینم سورسی برای تغییر شکل فرم

اینم یکی دیگه

اینم OCX کنترل های سه بعدی (frame,button,...)
قبل از استفاده باید رجیسترش کنید(VBCTRLS.zip)

اینم یکی دیگه برای تماس تلفنی

[sohrab o]

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

[sohrab o]

این یکی دیگه کار می کنه

بازم هست شما هم بزارید

یه dialer دیگه

یه dialog box جالب

حالا نوبت یه گرید جالبه

[harry potter]

آقا سهراب این برنامه dialerکار نمیکنه
یا من بلد نیستم استفاده کنم
من مودم رو وصل میکنم به تلفن ولی برنامه شماره گیری نمیکنه
من چند تا برنامه با mscommنوشتم ولی با همین مشکل مواجه شدم
اگه باید کاری کنم که این برنامه کار کنه لطفآبگید
portمودم من 3 هست ولی وقتی پورت 3 رو باز میکنم errorمگیره
لطفآ راهنماییم کنید

[sohrab o]

اینم چند تا کلید دیگه

[sohrab o]

اینم 2 تا دیگه

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

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

[harry potter]

این هم انواع frame

برنامه ای برای قراردادن آیکن در تسکبار

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

این هم یه textbox با خاصیت زیاد

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

[harry potter]

آقا سهراب دوباره این برنامه pardis group کار نکرد
نمیدونم اشکال از کجاست
هر موقع می خوام پورت 3 رو باز کنم error می گیره
در صورتی که مودم من رو پورت 3 نصب شده
انگار که در این برنامه ها چیزی به داخل مودم ارسال نمیشه
و اصلا شماره گیری نمیکنه
لطفآ اگه دوستان می تونن راهنماییم کنن ممنون میشم
اگه مطلبی در باره mscomm دارید برام بذارید
من تو یاهو سرچ کردم ولی چیزی دستگیرم نشد
البته چند تا پروژه گرفتم اون ها هم مثل برنامه شما کار نکرد
لطفلا کمکم کنید کارم خیلی گیره

[ashkan209]

یک عدد Analog Meter

[sohrab o]

به به بقیه دوستان هم اومدن به افتخارشون چند تا کلید باحال دیگه

[harry potter]

آقا این هم حدود 50 تا اکتیوکس
البته کارایشونو خودتون بفهمید
اگه تونستید دوباره در این تایپیک بذارید تا همه استفاده کنن
شرمنده من کارایی این ها رو کار نکردم
آقا سهراب تو رو خدا یه برنامه کار کن در مورد mscomm به من بده
چون اونایی که دادی هیچ کدوم کار نکرد

[s.sepehrvand]

ابزار تولید اتوماتیک فرم ورود اطلاعات درVB6/SQLServer



ActiveDB , Intelligent DataSource ActiveX Component

ActiveDB ابزاری است که به کمک آن میتوان براحتی و در کوتاهترین زمان ممکن فرمهای هوشمند ورود اطلاعات را در محیط Visual Basic 6 و بانکهای اطلاعاتی MS Access ,MS SQLServer , Oracle و دیگر Provider های OLeDb تولید کرد.

- ActiveDB یک کنترل از نوع Data Source میباشد و کلیه کنترلهایی که خواص DataSource وData Field دارند مانند TextBox , ComboBox , ListBox,CheckBox , PictureBox , MaskEdit , RichtextBox, DataGrid,FlexGrid,… میتوانند به آن Bind شوند.

- ضمنا ActiveDB شامل یک Wizard قوی به نام ActiveWizard میباشد که کلیه مراحل تولید فرمها را بدون نوشتن کد انجام خواهد داد.

کامپوننت رایگان ActiveDB به همراه Source کامل

[ashkan209]

یک ocx برای عملیات power off و logoff و restart و ...

یک کنترل بدرد بخور برای فرم About و Splash

[sohrab o]

حالا که این طور شد بازم کلید

[sohrab o]

اینم یه لیست جالب

اینم کلید های دیگه

[ehsan_electronic]

سلام harry potter برای کار با mscomm به این لینک یه سری بزن ، امیدوارم به دردت بخوره

http://www.barnamenevis.org/sh...ad.php?t=33336

[ashkan209]

اینم برنامه تقویم هجری شمسی (که خودم نوشتم، با استفاده از یک DLL از شرکت اکسین سافت)
این برنامه علاوه بر اینکه تقویم شمسی را بالای ساعت (sys tray) قرار میده ،امکاناتی مثل تغییر روز،ماه،سال را به شما میدهد و معادل میلادی تاریخ مذکور را نشان میدهد . ضمنا یک قسمت برای ثبت یادداشتهای روزانه و یادآوری آنها در نظر گرفتم .
به هر حال اگه دوستان یک تقویم مناسب برای Desktop شون میخوان ،پیشنهاد میکنم که دانلود کنند
البته حجمش کمی زیاده (حدود 6mb) ،ارزشش را داره

این عکس از desktop

http://www.4shared.com/file/821060/2.../calendar.html

اینم لینک دانلود
http://www.4shared.com/file/820992/f...HCalendar.html

[yavari]

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

دوستان ، یه پیشنهاد

می شه OCX یا DLL هاتونو با Source بذارید
لطف می کنید اگه این کارو بکنید

سایر دوستان را نمی دونم
ولی من شخصا در استفاده از OCX محتاط هستم
و OCX رو تا ندونم توش چیه ، استفاده نمی کنم
در ضمن ،
کسی هست که سورس BaTool ( گذاشتن پیغام در بالون XP ) رو داشته باشه !!!

با تشکر از همگی

[Payman62]

این بار آپ شد.
ocx برای تغییر resolution هراه سورس.

[sjj]

دیدم اینجا کامپوننت بازیه با خودم گفتم پس من نباشم که نمیشه !!
آقا سهراب کارت واقعا علیه ممنون
در ضمن اگه ممکنه همه Button ها رو تو یه فایل بزارید که راحت تر باشه
اینم کامپوننت ها :
اولی برای رسم موج سینوسی
دومی یه کامپوننت برای پخش MP3 با امکانات خیلی جالب
سومی هم که از اسمش معلومه

[sjj]

سلام به بروبچز گل این تاپیک
اینم کامپوننت نکته روز :

[حامد مصافی]

کسی هست که سورس BaTool ( گذاشتن پیغام در بالون XP ) رو داشته باشه !!!

نخیر، کسی این سورس رو نداره!
چون کنترل BaTool رو من نوشتم!
چند روز دیگه سورس رو براتون میفرستم

[yavari]

سلام BlackDal جان

ممنون از توجه تون
مشتاقانه منتظرم

[Payman62]

منم چند تا سورس برای بالون دارم. پیدا کنم میذارم.
این ocx که از اسمش معلومه برای چیه.

اینم یه ocx دیگه.

یه ocx دیگه.

اینم یه ocx دیگه.

[sjj]

سلام.امروز براتون دو تا کامپوننت دارم. اولی رقم ها رو به صورت دیجیتال نمایش می ده و دومی هم برای پخش فایل های AVI به کار می ره. در مورد اون کامپوننت نکته روز که آقا سهراب فرمودن بیشتر توضیح بدم باید بگم که شما حتما دیدید که بعضی از برنامه ها وقتی که بالا می یان یه نکاتی رو به کابر راجع به برنامه به صورت تصادفی توضیح می دن.با این جمله "Did you know"
مثلا Visual C . حالا این OCX هم همین کار رو برای برنامه های ما انجام می ده.

[حامد مصافی]

سلام BlackDal جان

ممنون از توجه تون
مشتاقانه منتظرم

سلام دوست عزیز
ممنون از لطفتون
اما من هنوز نمی تونم این کار رو بکنم
انشا الله تا 3 روز دیگه

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

[riyahiyan]

دست همگی درد نکنه لطفا در قسمت تو ضیحات در مورد خود OCX ها هم مختصر توضیح بدین البته اونایی که تا حدی نامانوس اند مثل DND .
یه OCX برای نمایش ایکن کنار ساعت ویندوز.

[Payman62]

سهراب یادته تو یاهو گفتم تاپیکت مفید بود و میخوام دوباره بیارمش رو. چند روز سرم شلوغ بود ولی به قولم عمل کردم.
اینم یه ocx دیگه.
همراه با سورس. توضیحات فایل هم در فایل Read me هست.

[Payman62]

اینم یه ocx دیگه.
همراه با سورس: تقویم فارسی
منبع : http://www.developercenter.ir/Forum/...1&page=2&pp=10


اینم یه ocx دیگه.
برای تغییر رنگ و فونت مثلا یه لیبل . همراه سورس راهنما برای استفاده.

اینم یه ocx دیگه.
برای پخش MP3 . همراه سورس راهنما جهت استفاده. اگه نتونستین استفاده کنین بگید تا توضیح بدم.
خیلی مفیده.

اینم یه ocx دیگه.
زمان بی حرکت بودن موس( Idle بودن سیستم) رو نشون میده. همراه سورس راهنما جهت استفاده.

[Payman62]

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

اینم یک سنجاق (PIN)

اینم یک MP3 پلیر باامکاناتی ازقبیل رقص نور.

اینم یه ocx دیگه.
برای عکس گرفتن از تصویر مانیتور(کپچر). همراه با سورس راهنما جهت استفاده.

اینم یه ocx دیگه.
برای کار با رجیستری. همراه با فایل Help راهنما جهت استفاده.

[alimaker]

کسی ocx داره که وقتی فرم باز بشه به طور خودکار زبان سیستم رو فارسی کنه؟

[vb.netAss]

نیازی به ocx نداری این چند خط کارتو را می ندازه

Sub SetFarsi()
Dim X, dwLo As Long, klf_reorder As Long
Dim OSstr As String
X = GetKeyboardLayout(dwLo)
If X = 67699721 Then
X = ActivateKeyboardLayout(67175425, klf_reorder)
X = ActivateKeyboardLayout(67175465, klf_reorder)
X = ActivateKeyboardLayout(69796905, klf_reorder)
End If
End Sub

Sub SetEnglish()
Dim X, dwLo As Long, klf_reorder As Long
X = GetKeyboardLayout(dwLo)
If X = 67175425 Or X = 67175465 Or X = 69796905 Then X = ActivateKeyboardLayout(67699721, klf_reorder)
End Sub

Function IsFarsi() As Boolean
Dim X, dwLo As Long
IsFarsi = False
X = GetKeyboardLayout(dwLo)
If X = 67175425 Or X = 67175465 Or X = 69796905 Then IsFarsi = True
End Function

[riyahiyan]

دوست عزیر ممنون به خط زیر گیر می ده مشکل چیه؟
(X = GetKeyboardLayout(dwLo

[alimaker]

خیلی از لطفتون ممنونم. ولی دو تا اشکال اول اینکه وقتی این کدها را در form load قرار میدم خطای end sub expected رخ میده دوم اینکه دوست دیگه ای به (X = GetKeyboardLayout(dwLo خطا گرفتن . لطفا راهنمایی کنین.

[Hossein Bazyan]

دوست عزیز
این کد را هم امتحان کن من دارم از این استفاده میکنم
کد تغییر را در GotFocus قرار بده یعنی با گرفتن فوکوس در TextBox اتوماتیک آنرا فارسی کنه و در تکستهایی که لازمه انگلیسی یا هر زبان دیگه ای بشه به آن زبان تغییر کنه
اول یک مدول باز کن و کدهای زیر را در آن قرار بده

 

 

Private Declare Function GetKeyboardLayoutName _

                Lib "user32" _

                Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Declare Function LoadKeyboardLayout _

                Lib "user32" _

                Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, _

                                             ByVal Flags As Long) As Long

Private Const LANG_NORSK    As String = "00000414"

Private Const LANG_ARABIC   As String = "00000401"

Private Const LANG_NL_STD   As String = "00000413"

Private Const LANG_EN_US    As String = "00000409"

Private Const LANG_DU_STD   As String = "00000407"

Private Const LANG_FR_STD   As String = "0000040C"

Private Const LANG_FARSI    As String = "00000429"

Private Const KL_NAMELENGTH As Long = 9

Private Const KLF_ACTIVATE  As Long = &H1

 

که من انواع ثابتها را برای انواع زبانها در آن معرفی کرده ام

سپس در GetFocus تکست کد زیر را بنویس

 

Private Sub txtSearch_GotFocus()

        Call SetKbLayout (LANG_FARSI  )   ' For Farsi 

        Call SetKbLayout (LANG_EN_US )   ' For English

        ' And you can choose another Const for another Language

End Sub

 

که برای هر زبانی میتوانی از کد و ثابت آن زبان استفاده کنی
در تکستی که قرار است فارسی نوشته شود در GetFocus آن ثابت فارسی را بنویس و در تکستی که قرار است انگلیسی یا هر زبانی نوشته شود ثابت آنرا قرار بده
حال با گرفتن فوکوس اتوماتیک به آن زبان تغییر زبان داده میشود
حال تابع اصلی را هم میتوانی در مدول قرار بدی ( در اینصورت باید آنرا Public تعریف کنی ) و هم در خود فرم
این هم تابع اصلی

Private Function SetKbLayout(strLocaleId As String) As Boolean

    Dim strLocId As String 'used to retrieve current KeyboardLayout

    Dim strMsg   As String   'used as buffer

    Dim lngErrNr As Long   'receives the API-error number

    strLocId = String(KL_NAMELENGTH, 0)

    GetKeyboardLayoutName strLocId

    If strLocId = (strLocaleId & Chr(0)) Then

        SetKbLayout = True

    Else

        strLocId = String(KL_NAMELENGTH, 0)

        strLocId = LoadKeyboardLayout((strLocaleId & Chr(0)), _

                KLF_ACTIVATE)

        If IsNull(strLocId) Then  'returns NULL when it fails

            SetKbLayout = False

        Else

            strLocId = String(KL_NAMELENGTH, 0)

            GetKeyboardLayoutName strLocId

            If strLocId = (strLocaleId & Chr(0)) Then

                SetKbLayout = True

            Else

                SetKbLayout = False

            End If

        End If

    End If

End Function

 

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

[alimaker]

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

[Hossein Bazyan]

دوست عزیز برنامه شما 2 مشکل داره

1. من این کد را از یک برنامه کامل خودم استخراج کرده ام و من مقادیری را که گفتم در یک مدول قرار بده باید همه Public تعریف بشن نه Private (البته در برنامه من لازم بود Private باشند ) پس توابع موجود در مدول و همچنین مقادیر Const را همه Public قرار بده - البته میتونستی اصلا از مدول استفاده نکنی
2. در هنگامی که TextBox فوکوس میگیرد من هر دو تابع را برای فراخوانی هم انگلیسی و هم فارسی قرار داده بودم ( این فقط جهت اطلاع شما بود و میبایست یکی را بسته به نبیاز خود حذف کنی ) در غیر اینصورت اول زبان سیستم فارسی میشه و سپس بلافاصله انگلیسی که این تغییر را شما نمیدید.

من اصلاح شده برنامه را همراه 2 تکست باکس برات میفرستم که اگه روی تکست باکس اول فوکوس قرار گرفت گرفت زبان سیستم فارسی و روی دومی انگلیسی بشه .
هنگام تغییر تکست باکسها به قسمت زبان در System try دقت کن !

[vb341]

انم یه حالت دیگه با کد کمتر

[perfeshnal]

یک Progressbar باحال و زیبا

این برنامه از اسمش مشخصه URLLabel

استفاده از فلش در VB

یک DeskToolbar تقریبا مثل نوار start