شناساندن یک فایل html در بیسیک

[rouzbeh]

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

چگونه می توان یک فایل html را که در بیسیک تعریف کردهایم جوری ادرس دهی کنیم که از روی cd که اجرا می شود ان فایل را بشناسد : ایا این روش درست است؟

index.htm\
البته من این مسیر را در text box تعریف کردم . :roll:

[A.Noor]

با سلام
منظور شما ، پیداکردن مسیر CDRom دستگاه است ؟

[rouzbeh]

بله همینطور است . اقای نوری

[A.Noor]

این کدها را امتحان کنید :
Const DRIVE_CDROM = 5

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Public Function GetCdRomDrive() As String
Dim tmp As Integer
Dim tmpStr As String
Dim Drives As String
Dim CDsCount As Integer
Dim CDsLetters As String
Dim ret As Long

Drives = Space(255)
ret = GetLogicalDriveStrings(Len(Drives), Drives)
For tmp = 1 To ret Step 4
tmpStr = Mid(Drives, tmp, 3)
If GetDriveType(tmpStr) = DRIVE_CDROM Then
CDsLetters = Left(tmpStr, 3)
Exit For
End If
Next tmp
GetCdRomDrive = CDsLetters
End Function
اگر جواب نداد راه دیگری هم هست که آقای عریضی قبلا در همین سایت مطرح کردند و شما می‌تونید با جستجو اون را پیدا کنید .

[A.Noor]

http://www.barnamenevis.org/forum/viewtopic.php?t=4635&highlight=getcddrives

[rouzbeh]

اقای نوری ببخشید این کد را در قسمت کد genral بنویسم یا form؟ متشکرم :)

[A.Noor]

تا قبل از شروع تابع ( کلمه Public ) معرفی توابع API است که باید در قسمت General معرفی بشه.
یک نکته هم دوستانه خدمتتان عرض میکنم و اون اینه که اگر می‌خواهید در وی‌بی پیشرفت کنید صرفا به مطالب این سایت کفایت نکنید چرا که در فرومها اشکالات رفع میشه بلکه با مطالعه کتابهای آموزشی به هدفتان برسید.

[rouzbeh]

بله همینطوره اقای نوری. من دانشجوی کامپیوتر هستم و چند کتابی نیز تهیه نمودم ولی کفایت نداره
( می دونین که همه ترجمه شده است ) راستی اگر شما یک کتاب مناسب سراغ دارید لطفا من را راهنمایی فرمایید.
با تشکر :)

[A.Noor]

من به همه دوستانی که قصد شروع وی‌بی را داشتند توصیه می‌کنم که از سی‌دی های آموزشی هادی سیستم استفاده کنند و بعد از اون سراغ کتاب بروند. سی‌دی‌های هادی سیستم 8 تا هستند و نسبتا گران. می‌تونید سی‌دی اول را نصب کنید و تمام فایلهای Dswmedia را روی هاردتان کپی کنید . ( و همینطور در مورد 7 سی‌دی دیگر )

در مورد کتاب هم بهترین کتابی که من تابحال دیده‌ام : راهنمای جامع برنامه نویسان ویژوال بیسیک 6 ترجمه مهندس بهرام پاشایی

[rouzbeh]

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

[M-Gheibi]

آقا ما دیدیم بحث کتابه گفتیم یه نظری بدم شاید بدرد بخوره.
به نظر من بهترین کتاب برای VB این هست :
نام کتاب : آموزش گام به گام ویژوال بیسیک 6 (مقدماتی و پیشرفته)
ناشر : مرکز فرهنگی نشر گستر
نویسنده : گرگ پری
مترجمین : فرهاد غنی زاده - سهیلا سرهنگی
آدرس انتشارات : تهران - خیابان کارگر جنوبی (بین میدان انقلاب و خیابان لبافی نژاد)- برج مهستان - طبقه 6 - واحد 605
تلفن تماس : 6432705

ما که تو همه کتابایی که دیدیم با این یکی خیلی حال کردیم.

اگر هم رفرنس انگلیسی میخوای به کتاب Programming in Visual Basic 6.0 نوشته ی Bradley Millspaugh مراجعه کنید (البته اگه تونستید پیداش کنید. چون من تو نمایشگاه دو سه سال پیش خریدم. فکر کنم اگه الآن پیدا بشه نزدیک به 50 الی 60 هزار تومن باشه). تعداد صفحات : 694 صفحه - تماماً گلاسه - به همراه یک سی دی-

این هم عکس روی جلد :
http://images.amazon.com/images/P/007251874X.01.LZZZZZZZ.jpg

[rouzbeh]

وا اقا مسعود کتابی که پیدا نمی شه را چرا دیگه میگین و دهان ما رو اب می اندازی . جوری تعریف کردین که من مجبورم این کتاب را از کهنه فروشها دنبال کنم و بگیرم. :o

[M-Gheibi]

کتابی که پیدا نمی شه
:shock: کدوم کتاب ؟ اگه انگلیسیه منظورتونه که باید بگم من شنیدم جاهایی هستند که کتابهای اورجینال را بفروشند ولی شرمنده نمیدونم کجا. :oops:

[rouzbeh]

متشکر :)