|
|
|||
|
درباره وبلاگ
![]() با سلام خدمت شما بازديد كننده محترم . اين وبلاگ در جهت آموزش تكنيك هاي پيشرفته ويژوال بيسيك و رفع مشكلات شما عزيزان و همچنين دانلود برنامه هاي كاربردي و جذاب موبايل فعاليت مي كند وآماده پاسخگويي به سوالات و نظرات شما بازديدكنندگان محترم مي باشد. با تشكر مدير وبلاگ ( سيد كمال رضايي)
منوي وبلاگ
آرشيو مطالب گذشته
هفته چهارم بهمن 1386
هفته اوّل بهمن 1386 هفته چهارم دی 1386 هفته سوم دی 1386 هفته دوم دی 1386 هفته اوّل دی 1386 آرشيو موضوعات وبلاگ
لينك دوستان
آموزش و ترفند
دانلود برنامه و ترفند برنامه هاي يك برنامه نويس آموزش دروس كامپيوتر آس كلاس آموزش ويژوال بيسيك ويژوال بيسيك و گرافيك رياضيات و وي بي ****۞ startxp ۞**** BN - Soft توابع API آموزش میکروکنترلر avr علم نجوم ويروس نويسي در ويژوال بيسيك آموزش فلش-برنامه نویسی-مقاله-سورس کد اويانيك - وبلاگي براي برنامه نويسان الکترونيک - کامپيوتر - برنامه نويسي اموزش ساخت بازی با فلش سورس کدهای ویژوال بیسیک قدرت برتر سلطان كامپيوتر مغناطيس كامپيوتر اينترنت موبايل ترفند جوك عكس... كتابفروشي اينترنتي مکانی برای برنامه نویسان ایرانی آموزش ويندوز _ هك _ ترفند كد نويس punisher boy دهكده موبايل اروم بلاگ ×××بیا تو کلیپ××× Visual i3asiC رمز تمام بازی ها **بهترین ها فقط در اینجا** آموزش رایگان سايت تخصصي موبايل مطالب برتر وبلاگ
نكاتي در مورد وبلاگ
اين وبلاگ تقريبا هفته اي دو بار بروز مي شود - ممكن است به دليل كثرت سوالات به سوالات شما دير پاسخ داده شود اما حتما به همه سوالات پاسخ داده مي شود - لطفا سوالات خود را در قسمت نظرات بيان كنيد و سوالاتتان را ميل نكنيد - فقط پنج پست آخر در صفحه نخست قرار مي گيرد براي دسترسي به همه مطالب مي توانيد از آرشيو استفاده كنيد .
نظر سنجي وبلاگ
آمار وبلاگ
آيه روز
|
پاسخ به سوالات آقا بهزاد – آقاي مجتبي غلامعلي زاده – آقاي محمود غريبي – جناب ولي پور – ندا خانم
با سلام قبل از هر چيزي از عزيزاني كه به اين وبلاگ لطف دارند و با سوالات و نظرات خود ما را در نوشتن مطالب بهتر و مفيد تر ياري مي كنند تشكر مي كنم . آقا بهزاد 1.یه برنامه می خواستم که عکس رو به هر فرمتی که می خواهیم تبدیل کنه(هر فرمت یعنی فرمتهای ناشناخته مثل BA)آموزش با سورس بزارید پاسخ » آقا بهزاد عزيز ! به دليل اينكه سيستم مديريت نظرها در بلاگفا چندان قوي نيست و من متوجه نظر هاي جديد نمي شوم مجبورم نظرهاي قبلي را پاك كنم در غير اينصورت ممكن است دچار اشتباه شوم و نظرات بعضي از دوستان را نخوانم . سوال اول كمي نامفهوم بود و من متوجه نشدم تبديل عكس به فرمت دلخواه و ناشناخته چه فايده اي دارد و هدف شما از اين كار چيست لطفا كاملتر توضيح دهيد تا بهتر بتوانم كمكتان كنم . در مورد سوال دوم بايد خدمت شما عرض كنم كه شرح دستورات يك برنامه بصورت كامل وقت بسياري مي خواهد كه متاسفانه من وقت انجام چنين كاري را ندارم و از اين بابت واقعا معذرت مي خواهم . شما مي توانيد سورسها را تشريح كنيد و هر قسمت از آن را كه متوجه نشديد بيان كنيد تا توضيح بدهم . اما سوال سوم بطور كلي برنامه ها دو نمونه اند 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 اميدوارم پاسخ درست و كاملي به سوالات شما عزيزان داده باشم . درپايان خدمت ندا خانم عرض مي كنم كه من در استان فارس و شهرستان فيروز آباد زندگي مي كنم اما دانشجوي شيراز هستم . واقعا از بابت تماس تلفني با شما عذر خواهي مي كنم و امكان اين كار وجود ندارد شما مي توانيد مشكلات و سوالاتتان را هر چقدر هم كه طولاني باشد در قسمت نظرات بيان كنيد (ميتوانيد از نظر خصوصي استفاده كنيد) تا در صورت امكان به آنها پاسخ دهم . موفق باشيد . / نوشته شده در چهارشنبه بیست و چهارم بهمن 1386 و ساعت 14:57 در ارتباط با موضوع پاسخ به سوالات |
پاسخ به سوالات دوستان عزيز
با سلام قبل از هر چيز از بابت چند روزي كه نتوانستم وبلاگ را بروز كنم از همه عزيزان عذر خواهي مي كنم و از لطف همه عزيزان مخصوصا آقا بهزاد تشكر مي كنم . و اما پاسخ به سوالاتي كه در مدتي كه نبودم مطرح شد : آقا امير علي سلام میخواستم بدونم که چطور میشه یک فرم را کاملا شبیه عکس کرد یعنی ما یک عکس وارد برنامه کنیم و وقتی فرم را اجرا کردیم کاملا شبیه عکس را نشان دهد! پاسخ » آقا امير علي عزيز ! براي اينكه يك فرم را كاملا شبيه يك عكس كنيد مي توانيد از سورس كدي كه در ادامه براي دانلود قرار مي دهم استفاده كنيد . براي استفاده از اين سورس شما مي توانيد عكسي را كه مايليد فرم را به آن شكل در آوريد طراحي كنيد و قسمت هايي را كه مايل به حذف آنها هستيد به يك رنگ خاص مثلا سفيد در آوريد حال تصوير را با استفاده از خاصيت Picture پشت زمينه فرم قرار دهيد و خاصيت Back Color فرم را به همان رنگي كه قبلا براي حذف قسمتهاي زائد تصوير مشخص كرده ايد در آوريد در پايان هم خاصيت BorderStyle فرم را برابر با صفر قرار داده و فرم را به اندازه تصوير پشت زمينه تغيير اندازه دهيد . حال اگر برنامه را اجرا نماييد مي بينيد كه فرم به شكل دلخواه شما در آمده است. در مورد سوال دوم هم بايد بگويم كه با عرض پوزش به سوالاتي كه با موضوع وبلاگ مغايرت داشته باشند پاسخ داده نمي شود . دانلود سورس برنامه تغيير شكل فرم آقا بهزاد ( بهپر ) سلام می خواستم برام سورس طراحی Froum برای وب در وی بی رو بدید. پاسخ » آقا بهزاد ( بهپر ) عزيز ! سوال شما گنگ و نامفهوم است و من متوجه سوال شما نمي شوم لطفا بيشتر توضيح دهيد كه منظور شما چيست . آقا محمد سلام.با تشکر از وبلاگ خوبی که دارین.واسه من یه سوالی پیش اومده که نتونستم تو اینترنت جوابشو پیدا کنم: پاسخ » آقا محمد عزيز ! همانطور كه شما فرموديد Microsoft Agent با زبان فارسي يك مشكل دارد و آن هم اين است كه اگر در متد Think آن متني فارسي بنويسيم كه بيشتر از يك كلمه باشد چون متن را بصورت انيميشن و كلمه به كلمه ظاهر مي كند از سمت چپ به راست متن نوشته مي شود و كاملا جمله برعكس مي شود براي اينكه جملات فارسي را بطور صحيح مشاهده نماييم تنها راه ( البته به نظر من ) اين است كه حالت انيميشني را از نحوه ظاهر شدن متن برداريم كه براي اين كار مي توانيد قبل از استفاده از متد Think دستور زير را قرار دهيد : Character.Balloon.Style = 0 كه Character نام شئ Agent ي است كه قبلا تعريف نموده ايد . اميدوارم با اين كار مشكلتان حل شود . جناب جعفري با عرض سلام پاسخ » جناب جعفري عزيز ! من نمي دانم شما چگونه پايگاه داده را به Data ربط داده ايد اما بطور كلي براي اينكه يك ركورد جديد به جدور اضافه كنيم بايد از متد هاي AddNew و Update شئ RecordSet استفاده كرد براي اينكار ابتدا دو دكمه به فرمتان بيفزاييد و بر روي دكمه اول كليك كرده و دستور زير را درج نماييد : Data1.Recordset.AddNew حال اگر برنامه را اجرا كنيد مي بينيد كه با فشار دادن اين دكمه همه فيلدها خالي مي شوند و شما مي توانيد اطلاعات جديد را وارد كنيد . براي ذخيره اطلاعات هم روي دكمه دوم كليك كنيد و دستورات زير را درج كنيد : Data1.Recordset.Update Data1.Refresh با فشار دادن دكمه دوم در برنامه مي توانيد اطلاعاتي را كه وارد كرده ايد ذخيره كنيد . اگر توضيحات كافي نبود بفرماييد تا بيشتر راهنمايي تان كنم . در پايان هم عرض مي كنم كه در پي در خواست آقا بهزاد و آقا محمد براي يك مقاله در مورد آموزش تروجان نويسي و نداشتن وقت كافي براي اينكار آموزشي را براي دانلود قرار مي دهم كه اميدوارم مفيد واقع شود منبع اين آموزش وبلاگ Lorhack.Blogfa.Com است كه در حال حاضر غير قابل دسترس است . دانلود آموزش تروجان نويسي در ويژوال بيسيك در ضمن نظرات خود را در مورد وبلاگ بيان كنيد . موفق باشيد .
/ نوشته شده در سه شنبه دوم بهمن 1386 و ساعت 13:16 در ارتباط با موضوع پاسخ به سوالات |
پاسخ به سوالات آقا عليرضا – آقا بهزاد – آقاي مجتبي غلامعلي زاده – مونا خانم
آقا علیرضا سلام ... پاسخ » آقا عليرضاي عزيز ! براي اين كار بايد از كنترل هاي آرايه اي استفاده كنيد به اين صورت كه شئ ي را كه مي خواهيد با 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" اگر توضیحات کافی نبود بفرمایید تا این کنترل را کاملتر بررسی کنیم . مونا خانم با سلام و خسته نباشید خدمت شما پاسخ » مونا خانم عزيز ! چند تا سورس از بهترين برنامه هايي كه براي اين كار ديده ام را براي دانلود قرار مي دهم اميدوارم كمكي كند . اگر كافي نبود دوباره بيان كنيد تا سورس هاي بيشتري بگذارم . دانلود سورس برنامه طراحی صفحات وب (سورس اول) دانلود سورس برنامه طراحی صفحات وب (سورس دوم)
/ نوشته شده در چهارشنبه بیست و ششم دی 1386 و ساعت 9:38 در ارتباط با موضوع پاسخ به سوالات |
پاسخ به سوالات آقا امید – آقا ابراهیم - جناب VB6 BEST
آقا امید سلام پاسخ » آقا آرمان عزيز ! اگر مطالب قبل را بادقت خوانده باشيد در چند پست قبل يك فایل PDF در مورد کار با Tree View گذاشته ام که اگر آن را مطالعه نمایید جواب سوالاتتان را خواهید یافت . در ضمن این قابلیت در کنترل List Box وجود ندارد و باید از کنترل های دیگر استفاده نمایید. آقا ابراهیم در گزارش گیری با ویژوال بیسیک چطور میتونیم از چک باکس استفاده کنیم . پاسخ » آقا ابراهيم عزيز متاسفانه امكان استفاده از Check Box در Data Report وجود ندارد. جناب VB6 BEST با سلام و تشکر از پاسخ شما به سوال من اما من یک مشکل دیگه دارم!؟ پاسخ » | ||