آموزش ويژوال بيسيك و برنامه های موبایل

پاسخ به سوالات آقا بهزاد – آقاي مجتبي غلامعلي زاده – آقاي محمود غريبي – جناب ولي پور – ندا خانم

skrsoft — Wed, 13 Feb 2008 11:26:55 GMT

با سلام

قبل از هر چيزي از عزيزاني كه به اين وبلاگ لطف دارند و با سوالات و نظرات خود ما را در نوشتن مطالب بهتر و مفيد تر ياري مي كنند تشكر مي كنم .

آقا بهزاد

1.یه برنامه می خواستم که عکس رو به هر فرمتی که می خواهیم تبدیل کنه(هر فرمت یعنی فرمتهای ناشناخته مثل BA)آموزش با سورس بزارید
2.درباره برنامه هایی که ساختید آموزششون رو بزاریدآموزش با سورس بزارید
3.دربرنامه هایی مثل ورد وقتی روی گزینه نیو کلیک می کنیم یک فرم جدید مثل فرم قبل ولی بدون ارتباط با اون ساخته میشه(بدون ارتباط یعنی اگر اولی بسته شد دومی بسته نشه و مجزا باشه)آموزش با سورس بزارید

راستی چرا نظرات قبلی رو پاک می کنی بهتره بزاری بمونن.

پاسخ » آقا بهزاد عزيز ! به دليل اينكه سيستم مديريت نظرها در بلاگفا چندان قوي نيست و من متوجه نظر هاي جديد نمي شوم مجبورم نظرهاي قبلي را پاك كنم در غير اينصورت ممكن است دچار اشتباه شوم و نظرات بعضي از دوستان را نخوانم .

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

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

اما سوال سوم

بطور كلي برنامه ها دو نمونه اند MDI و SDI . برنامه های SDI برنامه هایی هستند که فقط یک فرم دارند مانند برنامه Notepad ویندوز که در هر لحظه فقط می توان یک فایل را باز کرد .

اما برنامه های MDI برنامه هایی هستند دارای چندین فرم هستند مانند برنامه Word که شما می توانید چندین فایل را همزمان بازکنید و روی آنها کار کنید .

در حالت معمولی پروژه ها دارای یک فرم هستند و لی بعضی از پروژه ها برای طراحی به چند فرم نیاز دارند . قبل از اینکه افزودن فرمهای اضافی در پروژه را مورد بحث قرار دهیم انواع فرم ها را بررسی می کنیم .

در ویژوال بیسیک سه نوع فرم وجود دارد:

فرم استاندارد => در حالت معمولی هر پروژه دارای یک فرم است که این فرم را فرم استاندارد می نامند .

فرم MDI پدر => یک پروژه با مدل MDI باید از فرم های چند تایی استفاده کند که حداقل یکی از فرم های آن فرم پدر و بقیه فرمها فرزند می باشند.

فرم MDI فرزند => فرمهای MDI فرزند فرمهایی هستند که خاصیت MDIChild آنها True باشد .فرم MDI پدر و فرزند هر دو می توانند دارای منو باشند . چنانچه فرم فرزند دارای منو باشد فرم پدر منوی فرم فرزند را نشان می دهد ولی منوی فرم پدر پنهان می شود .

برای فزودن فرم MDI پدر به پروژه می توانید از منوی Project گزینه Add MDIForm را انتخاب کنید. رنگ فرم MDI پدر خاکستری پررنگ است . برای اینکه فرمهای فرزند را مشخص کنید می توانید از خاصیت MDIChild فرم ها استفاده کنید . توجه کنید که فرم MDI باید فرم آغازین برنامه باشد .

برای مثال سورس برنامه ساده ای که دارای رابط کاربری MDI است را برای شما قرار داده ام .

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

آقاي مجتبي غلامعلي زاده

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

پاسخ » آقا مجتبي عزيز ! سورس برنامه اي را كه خواسته بوديد مي توانيد از لينك زير دريافت كنيد .

دانلود سورس برنامه بازشدن يك صفحه هنگام اتصال به اينترنت

آقاي محمود غريبي

یه برنامه می خوام بسازم که یه فایل رو مثل عکس یا فیلم یا هرچیز دیگه رو با پسوندی مثل mgh ذخیره کنه بعد این فایل یعنی همین فایلی که ذخیره کردیم رو بتونه open with کنه.

پاسخ » آقاي محمود غريبي عزيز ! قبل از هرچيزي بايد عرض كنم شما فرموده بوديد كه " من که دیگه خسته شدم از بس سوال کردم و جواب نشنیدم " و من همينجا عرض مي كنم كه من سوالي را با نام شما نديده ام كه بخواهم آن را پاسخ دهم يا نه . به هر حال اگر اشتباه از من بوده و به هر دليلي سوال شما را نخوانده ام از شما عذر خواهي مي كنم .

اما سوالتان كمي ناقص بود و اگر اشتباه متوجه نشده باشم منظورتان اين بود كه با كليك روي فايلي مثلا با پسوند mghاين فايل با برنامه ما باز شود.

براي اينكه پسوندي خاص را در ويندوز به برنامه اي اختصاص دهيم مي توانيم از رجيستري استفاده كنيم .

براي اين كار در برنامه اصلي تان يك ماژول اضافه نماييد و تعاريف زير را درون آن قرار دهيد :

Declare Function RegCreateKey Lib "advapi32.dll" Alias _

"RegCreateKeyA" (ByVal hKey As Long, _

ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegSetValue Lib "advapi32.dll" Alias _

"RegSetValueA" (ByVal hKey As Long, _

ByVal lpSubKey As String, ByVal dwType As Long, _

ByVal lpData As String, ByVal cbData As Long) As Long

Public Const ERROR_SUCCESS = 0&

Public Const ERROR_BADDB = 1&

Public Const ERROR_BADKEY = 2&

Public Const ERROR_CANTOPEN = 3&

Public Const ERROR_CANTREAD = 4&

Public Const ERROR_CANTWRITE = 5&

Public Const ERROR_OUTOFMEMORY = 6&

Public Const ERROR_INVALID_PARAMETER = 7&

Public Const ERROR_ACCESS_DENIED = 8&

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const MAX_PATH = 260&

Public Const REG_SZ = 1

حال در رويداد Load فرمتان دستورات زير را درج نماييد :

Dim sKeyName As String

Dim sKeyValue As String

Dim ret&

Dim lphKey&

sKeyName = "MyApp"

sKeyValue = "My Application"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

sKeyName = ".mgh"

sKeyValue = "MyApp"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)

sKeyName = "MyApp"

sKeyValue = "c:\my.exe %1"

ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)

ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _

sKeyValue, MAX_PATH)

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

If Command <> "" Then

MsgBox Command

End If

در دستورات بالا به جاي My Application نام برنامه خود را قرار دهيد و به جاي .mgh پسوند دلخواه خود را بنويسيد در پايان هم به جاي c:\my.exe مسير فايل اجرايي برنامه را قرار دهيد .

حال اگر يك فايل با پسوند mgh بسازيد و آن را باز كنيد برنامه شما اجرا مي شود و مسير آن را با يك پيغام نمايش مي دهد . تابع Command هم كه در دستورات استفاده شده است مسير فايلي را كه با برنامه شما باز شده را

بر ميگرداند . اميدوارم مشكلتان حل شود اگر بهتر توضيح دهيد و بفرماييد كه هدف كلي شما چيست و چه مي خواهيد بهتر مي توانم راهنمايي تان كنم .

دانلود سورس برنامه انتساب يك پسوند خاص به برنامه

جناب ولي پور

یک سوال در خصوص فرمهای ویژال بیسیک داشتم . می خواستم بدانم برای اینکه یک فرم همیشه ontop باشد چه كار بايد كرد . اگر نيازي به كد نويسي مي باشد ممنون مي شوم اگر كد آن را برايم ارسال فرمائيد .

پاسخ » جناب ولي پور عزيز ! براي اينكه فرم را On Top كنيد مي توانيد از دستورات زير استفاده كنيد :

Option Explicit

Const SWP_NOMOVE = 2

Const SWP_NOSIZE = 1

Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, _

ByVal x As Long, _

ByVal y As Long, _

ByVal cx As Long, _

ByVal cy As Long, _

ByVal wFlags As Long) As Long

Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _

As Long

If Topmost = True Then

SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Else

SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)

SetTopMostWindow = False

End If

End Function

Private Sub Form_Load()

Dim lR As Long

lR = SetTopMostWindow(Me.hwnd, True)

End Sub

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

درپايان خدمت ندا خانم عرض مي كنم كه من در استان فارس و شهرستان فيروز آباد زندگي مي كنم اما دانشجوي شيراز هستم . واقعا از بابت تماس تلفني با شما عذر خواهي مي كنم و امكان اين كار وجود ندارد شما مي توانيد مشكلات و سوالاتتان را هر چقدر هم كه طولاني باشد در قسمت نظرات بيان كنيد (ميتوانيد از نظر خصوصي استفاده كنيد) تا در صورت امكان به آنها پاسخ دهم .

موفق باشيد .

پاسخ به سوالات دوستان عزيز

skrsoft — Tue, 22 Jan 2008 09:45:18 GMT

با سلام

قبل از هر چيز از بابت چند روزي كه نتوانستم وبلاگ را بروز كنم از همه عزيزان عذر خواهي مي كنم و از لطف همه عزيزان مخصوصا آقا بهزاد تشكر مي كنم .

و اما پاسخ به سوالاتي كه در مدتي كه نبودم مطرح شد :

آقا امير علي

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

پاسخ » آقا امير علي عزيز ! براي اينكه يك فرم را كاملا شبيه يك عكس كنيد مي توانيد از سورس كدي كه در ادامه براي دانلود قرار مي دهم استفاده كنيد . براي استفاده از اين سورس شما مي توانيد عكسي را كه مايليد فرم را به آن شكل در آوريد طراحي كنيد و قسمت هايي را كه مايل به حذف آنها هستيد به يك رنگ خاص مثلا سفيد در آوريد حال تصوير را با استفاده از خاصيت Picture پشت زمينه فرم قرار دهيد و خاصيت Back Color فرم را به همان رنگي كه قبلا براي حذف قسمتهاي زائد تصوير مشخص كرده ايد در آوريد در پايان هم خاصيت BorderStyle فرم را برابر با صفر قرار داده و فرم را به اندازه تصوير پشت زمينه تغيير اندازه دهيد .

حال اگر برنامه را اجرا نماييد مي بينيد كه فرم به شكل دلخواه شما در آمده است.

در مورد سوال دوم هم بايد بگويم كه با عرض پوزش به سوالاتي كه با موضوع وبلاگ مغايرت داشته باشند پاسخ داده نمي شود .

دانلود سورس برنامه تغيير شكل فرم

آقا بهزاد ( بهپر )

سلام می خواستم برام سورس طراحی Froum برای وب در وی بی رو بدید.

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

آقا محمد

سلام.با تشکر از وبلاگ خوبی که دارین.واسه من یه سوالی پیش اومده که نتونستم تو اینترنت جوابشو پیدا کنم:
تو وی بی میخوایم اگنت مایکروسافت(همون عروسکه مرلین)که با کامپونت ماایکروسافت اگنت میاد رو بیاریم.ولی طوری بکنیم که َAutoPace آن غيرفعال باشد .يعني متون فارسي رو درست نمايش دهد و از آخر به اول نمايش ندهد.من منتظر جوابتون هستم...ممنون

پاسخ » آقا محمد عزيز ! همانطور كه شما فرموديد Microsoft Agent با زبان فارسي يك مشكل دارد و آن هم اين است كه اگر در متد Think آن متني فارسي بنويسيم كه بيشتر از يك كلمه باشد چون متن را بصورت انيميشن و كلمه به كلمه ظاهر مي كند از سمت چپ به راست متن نوشته مي شود و كاملا جمله برعكس

مي شود براي اينكه جملات فارسي را بطور صحيح مشاهده نماييم تنها راه ( البته به نظر من ) اين است كه حالت انيميشني را از نحوه ظاهر شدن متن برداريم كه براي اين كار مي توانيد قبل از استفاده از متد Think دستور زير را قرار دهيد :

Character.Balloon.Style = 0

كه ‍Character نام شئ Agent ي است كه قبلا تعريف نموده ايد . اميدوارم با اين كار مشكلتان حل شود .

جناب جعفري

با عرض سلام
من در ويژوال بيسيك يك پايگاه داده درست كرده ام و پنجره هاي ارتباطي هم براش درست كردم ولي موقع اجرا فقط يكبار مطلب ميگيرد
در شي Dataوقتي nextرا مي زنم نمي شود اطلاعات بعدي را وارد كرد .

پاسخ » جناب جعفري عزيز ! من نمي دانم شما چگونه پايگاه داده را به Data ربط داده ايد اما بطور كلي براي اينكه يك ركورد جديد به جدور اضافه كنيم بايد از متد هاي AddNew و Update شئ RecordSet استفاده كرد براي اينكار ابتدا دو دكمه به فرمتان بيفزاييد و بر روي دكمه اول كليك كرده و دستور زير را درج نماييد :

Data1.Recordset.AddNew

حال اگر برنامه را اجرا كنيد مي بينيد كه با فشار دادن اين دكمه همه فيلدها خالي مي شوند و شما مي توانيد اطلاعات جديد را وارد كنيد .

براي ذخيره اطلاعات هم روي دكمه دوم كليك كنيد و دستورات زير را درج كنيد :

Data1.Recordset.Update

Data1.Refresh

با فشار دادن دكمه دوم در برنامه مي توانيد اطلاعاتي را كه وارد كرده ايد ذخيره كنيد .

اگر توضيحات كافي نبود بفرماييد تا بيشتر راهنمايي تان كنم .

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

تروجان نويسي و نداشتن وقت كافي براي اينكار آموزشي را براي دانلود قرار مي دهم كه اميدوارم مفيد واقع شود منبع اين آموزش وبلاگ Lorhack.Blogfa.Com است كه در حال حاضر غير قابل دسترس است .

دانلود آموزش تروجان نويسي در ويژوال بيسيك

در ضمن نظرات خود را در مورد وبلاگ بيان كنيد .

موفق باشيد .

پاسخ به سوالات آقا عليرضا – آقا بهزاد – آقاي مجتبي غلامعلي زاده – مونا خانم

skrsoft — Wed, 16 Jan 2008 06:07:18 GMT

آقا علیرضا

سلام ...
می خواستم بپرسم که چه طور می تونیم در ویژوال بیسیک با درگ کردن یک
شی آن را کپی کنیم در همان فرم که قابلیت درگ کردن داشته باشد .
به عبارت ساده تر اینکه یک شی ثابت در صفحه داریم و زمانی که روی آن کلیک
کرده و درگ می کنیم یک کپی از آن گرفته شود و روی فرم قرار دهد و بتوان آن را در
کلیه نقاط فرم به حرکت در آورد یعنی Mose move , Mouse Down و Mous Up
برای این شی انجام شود ...
من کد های مربوط به حرکت شی در صفحه را دارم ولی کدی که بتوان عملیات فوق را انجام داد یعنی کپی از شی با درگ کردن را ندارم ...

پاسخ » آقا عليرضاي عزيز ! براي اين كار بايد از كنترل هاي آرايه اي استفاده كنيد به اين صورت كه شئ ي را كه مي خواهيد با Drag کردن آن یک کپی از آن تهیه شود را انتخاب کنید و خاصیت Index آن را برابر صفر قرار دهید .

حال سه متغير زير را در قسمت General تعریف کنید :

Dim mx As Single

Dim my As Single

Dim i As Integer

حال در رويداد MouseDown شئ مورد نظر دستورات زیر را قرار دهید :

mx = X

my = Y

i = i + 1

Load Command1(i)

Command1(i).Visible = True

Command1(i).Drag 1

در پایان هم در رویداد DragDrop فرم دستور زیر را قرار دهید :

Command1(i).Move X - mx, Y – my

حال اگر برنامه را اجرا کنید می بینید که با Drag کردن شئ یک کپی از آن گرفته می شود . توجه کنید که Command1 در مثال بالا شئ مورد نظر است و شما باید به جای آن نام شئ دلخواه خود را قرار دهید .

دانلود سورس برنامه کپی گرفتن از یک شئ با Drag کردن آن

آقا بهزاد

اگه میشه آموزش ساخت یه تروجان ساده رو بزارید(آموزش باشه نه سورس)و مرحله به مرحله طریقه ساخت رو توضیح بدی.

پاسخ » آقا بهزاد ! دوست عزيز ! در حال آماده سازي يك مقاله بصورت PDF هستم تا تروجان ها را معرفی کنم و آموزش ساخت دونمونه از آنها را بدهم تا چند روز دیگر حتما آماده می شود . شما فعلا می توانید مقاله زیر را مطالعه نمایید که در رابطه با WinSock است .

دانلود مقاله آموزش کار با WinSock

آقای مجتبی غلامعلی زاده

سلام دوست خوبم چند تا سوال دارم لطفا جواب بدین چگونه میتوان یک صفحه اینترنت را در vb به نمايش در بياريم .... لطفا يك نمونه كد جستجوي قوي هم بگذاريد .... لطفا سورس يك برنامه انبارداري را در وبلاگ خود قرار دهيد .... با تشكر.

پاسخ » آقا مجتبي ! دوست عزيز ! متاسفانه منظور از جستجو را در سوال شما متوجه نشدم لطفا بفرماييد منظور شما جستجو در چه بخشي است .(فايل – بانك اطلاعاتي – آرايه و يا ...) . از قرار دادن سورس برنامه انبارداري هم در وبلاگ معذورم چون برنامه اي كه كامل باش را نيافتم .

اما پاسخ به سوال شما در مورد چگونگي نمايش دادن يك صفحه وب در برنامه هاي ويژوال بيسيك:

براي اين كار بايد از كنترلي به نام WebBrowser استفاده کنیم برای افزودن این کنترل به جعبه ابزار از منوی Project گزینه Components را برگزینید و از کادر محاوره ای باز شده گزینه Microsoft Internet Controls را بیابید و تیک کنار آن را بگذارید و بر روی Ok کلیک کنید .

حال یک کنترل WebBrowser از جعبه ابزار بردارید و بر روی فرم قرار دهید این کنترل تقریبا یک مرورگر اینترنت کامل است با استفاده از خاصیت Navigate آن می توانید یک صفحه وب را بار گذاری کنید . مثلا دستور زیر را درون رویداد Click یک دکمه قرار دهید تا با فشار دادن دکمه این وبلاگ باز شود :

WebBrowser1.Navigate "http://www.skrsoft.coo.ir"

اگر توضیحات کافی نبود بفرمایید تا این کنترل را کاملتر بررسی کنیم .

مونا خانم

با سلام و خسته نباشید خدمت شما
یک سورس میخواستم که اگه براتون مقدور باشه برامون بزارید!
این سورس مربوط به برنامه طراحی سایت با ویژوال بیسیک است.خیلی ممنون میشم اگه بتونید منو کمک کنید .چون خیلی به این برنامه نیاز دارم .
فقط یک خواهش دیگه ......لطفا جوابم رو تا شنبه بددید.
پیشاپیش از لطف تون کمال تشکر رو دارم.
سایت هم خیلی آموزنده و جالب است .امید وارم در کارتان موفق باشید.
منتظر پاسخ شما هستم.

پاسخ » مونا خانم عزيز ! چند تا سورس از بهترين برنامه هايي كه براي اين كار ديده ام را براي دانلود قرار

مي دهم اميدوارم كمكي كند . اگر كافي نبود دوباره بيان كنيد تا سورس هاي بيشتري بگذارم .

دانلود سورس برنامه طراحی صفحات وب (سورس اول)

دانلود سورس برنامه طراحی صفحات وب (سورس دوم)

دانلود سورس برنامه طراحی صفحات وب (سورس سوم)