مسائل جالب در vb6(سورس کدهای جالب کامپوننت های جالب و....)

[moradizm]

آقا مجيد بخشيد مزاحم شدم مرادي ام.
باور كنيد من جستجو كردم ولي چيزي پيدا نكردم
شايد نوع جستجوي من فرق ميكنه به هر حال من مقيم سازي ويا
بالا آمدن برنامه قبل از ويندوز را جستجو كردم و چيزي پيدا نكردم
با عرض پوزش لطفا راهنماييم كنيد.

[kamalj99]

salam
من کدی رو میخواستم که وقتی روی دکمه کلیک میکنی یه پنجره باز بشه و تاریخ شمسی رو از ما بگیره و تاریخ میلادی توی تکس باکس نشون بده
همین جور بر عکسش یعنی شمسی رو بگیره وتاریخ میلادی توی تکس باکس نشون بده
خیلی ممنونم
منتظرم
اگه میشه توی وبلاگ جواب رو بدید

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[kbdfa]

سلام دوست عزيز
اولا به سهم خودم وردوت رو به اين فروم خوش آمد ميگم
دوما چقد پست ميزني به جاي اينهمه زحمت براي پست دادن يه جستجوي كوچولو مي كردي حتما پيدا ميكردي
نمونه اش اين آدرس
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[emer62304]

دست همه دوستان درد نکند
واقعا عالی است

[atlas-m]

ُسلام سید من Atlas-mهستم. متشکرم از زحمات شما... .

[تکنیک برتر]

با عرض سلام خدمت دوستان عزيز شرمنده از تاخيرم

[تکنیک برتر]

این هم یک سورس که به زبان ویژوال بیسیک نوشته شده است و می توان گفت که محیطی مانند Color picker برنامه Adobe Photoshop در آن شبیه سازی شده است.
حجم: ۳۰۷ کیلوبایت

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[تکنیک برتر]

بازی معروف Bomber man که توسط Ian Gregor به زبان ویژوال بیسیک نوشته شده است.


+ سازگار با VB 5.0, VB 6.0
+ حجم:۱.۳۲ مگابایت
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[تکنیک برتر]

این کد به ما نشان می دهد که چگونه در ویژوال بیسیک می توان دیسک های صوتی را به فایل های با فرمت wav در بیاوریم.

+ سازگار با VB 6,VB 5,VB 4/32
+ حجم: ۲ کیلوبایت

Please see [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Declarations:
Private Declare Function mciSendString Lib "winmm" alias "mciSendStringA" (Byval lpstrCommand as string,byval lpstrReturnString as string,byval uReturnLength as long,byval hWndCallback as long) as long


Code:
Public Sub RecordWave(TrackNum As Integer, Filename As String)
' TrackNum: track to record
' Filename: file to save wave as
On Local Error Resume Next
Dim i As Long
Dim RS As String
Dim cb As Long
Dim t#
RS = Space$(128)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
Kill Filename
RS = Space$(128)
i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb)
i = mciSendString("open cdaudio", RS, 128, cb)
i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb)
i = mciSendString("play cdaudio", RS, 128, cb)
i = mciSendString("open new Type waveaudio Alias capture", RS, 128, cb)
i = mciSendString("record capture", RS, 128, cb)
t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop
i = mciSendString("save capture " & Filename, RS, 128, cb)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
End Sub

[تکنیک برتر]

این سورس کد به ما نشان می دهد چگونه با کنترل ADO در یک برنامه نوشته شده به زبان ویژوال بیسیک عملیات navigation (move first, move next, move previous, move last), add, update, delete, cancel, refresh, find first, find next, filter, unfilter, sort (ascending-descending), bookmark را در پایگاه داده های Access را انجام دهیم.

+ سازگار با VB 6.0
+ حجم: ۳۵.۷ کیلوبایت

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]