چک کردن یک مسیر

[liner999]

سلام به دوستان و عزیزان من عضو تازا وارد هستم امیدوذارم بتونم اشکالاتم رو با کمک شما دوستان برطرف کنم .

اگر لطف کنین . پاسخ بدین خیلی ممنون میشم .

سوال اول : با چه دستوری میتونیم یه مسیری رو در هارد چک کنیم و بیبینیم مثلاً فلان فایل در فلان مسیر هست یا نه ؟

سوال دوم : اگر بخواییم کاری کنیم که وقتی طرف روی دکمه کلیک کرد کل صفحه به یک رنگ مثلاً آبی دربیاد چیکار باید بکنیم .

یا بجای رنگ از عکس استفاده شه .



ممنون.

[knight-rak]

سلام ورودتون رو به جمع اعضا ی برنامه نویس تبریک میگم

اولا این جا توی هر تاپیک فقط میشه یه سوال پرسید

برای اولی باید با FSO کارکنید { من باهاش کار نکردم پس نظری نمیدم )

2- کافیه توی رویداد کلیک بنویسید:

me.backcolor=vbblue

موفق باشید ....

[liner999]

دوست عزیز ممنون از پاسختون اماااا !!! کلاً سوال رو متوجه نشدید . و کامل هم پاسخ ندادید من نگفتم فرم سیه شه . این که ....

من گفتم صفحه کلی یعنی کلاً صفحه سیستم به یک رنگ دربیاد مثلاً آبی .

[محسن واژدی]

سلام علیکم


سوال اول : با چه دستوری میتونیم یه مسیری رو در هارد چک کنیم و بیبینیم مثلاً فلان فایل در فلان مسیر هست یا نه ؟
برای اینکه تست کنید آیا یک فایل در مکانی موجود از یا خیر به دوشیوه میتوانید عمل کنید


استفاده از دستور Dir موجود در ویبی (پیشنهادی)
استفاده از apiی PathFileExist که دقیقا همین عملکرد را برعهده دارد

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



سوال دوم : اگر بخواییم کاری کنیم که وقتی طرف روی دکمه کلیک کرد کل صفحه به یک رنگ مثلاً آبی دربیاد چیکار باید بکنیم .

یا بجای رنگ از عکس استفاده شه .

خب اگر منظورتون تغییر کردن رنگ زمینه فرمتون هست که باید از دستور Me.BackColor استفاده کنید که قبلا جناب knight-rak (http://barnamenevis.org/member.php?138539-knight-rak) نمونه را گفتن، و برای قرار داده تصویر بجای تغییر کردن رنگ زمینه باید از دستور
Me.Picture=LoadPicture("C:\1.bmp")
استفاده کنین
اگر منظور تون این نیست توضیح بیشتر بدین انشاء الله حل میشود

موفق باشید

[محسن واژدی]

اینم تاپیک سوال اولتون:
http://barnamenevis.org/showthread.php?275331-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D9%88%D8%AC%D9%88%D8%AF-%D8%AF%D8%A7%D8%B4%D8%AA%D9%86-%DB%8C%D8%A7-%D9%86%D8%AF%D8%A7%D8%B4%D8%AA%D9%86-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84&p=1215949&highlight=#post1215949

موفق باشید

[liner999]

دوست عزیز ممنون منظور من تصویر کل مانیتور هست !!!!!!!! این رو قبلاً هم گفتم ... !!!!!!

در ضمن من دستور Dir رو به این شکل استفاده کردم میگفت غلطه ....

ِ
if Dir(" Masire File Da Harjae ")=true then

Msgbox("Found")
else
me.hide
end if

[parselearn]

Public Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Public Declare Function PathIsDirectory Lib "shlwapi" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

'Check file existance:
Public Delcare Function FileExists(ByVal sPath As String) As Boolean
If (PathFileExists(sPath)) And Not (PathIsDirectory(sPath)) Then FileExists = True
End Function

'Check directory (folder) existance:
Public Delcare Function DirExists(ByVal sPath As String) As Boolean
If (PathFileExists(sPath)) And (PathIsDirectory(sPath)) Then DirExists = True
End Function



Private Sub Form_Load()
If Not FileExists(App.Path & "\subD.cab") Then Exit Sub
Open App.Path & "\subD.cab" For Input As #1
Line Input #1, strText
Text1.Text = strText
Close #1
End Sub









Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler
' get the attributes and ensure that it isn't a directory
FileExists = (GetAttr(FileName) And vbDirectory) = 0
ErrorHandler:
' if an error occurs, this function returns False
End Function








If Dir(App.Path & "\subD.cab") <> "" Then
Open App.Path & "\subD.cab" For Input As #1
Line Input #1, strText
Text1.Text = strText
Close #1
End If




fso
http://www.aivosto.com/visdev/fso.html

[محسن واژدی]

دوست عزیز ممنون منظور من تصویر کل مانیتور هست !!!!!!!! این رو قبلاً هم گفتم ... !!!!!!


سلام
توضیحاتتون واضح نیست اگر ممکنه بیشتر توضیح بدین، مثلا منظور شریفتون از تصویر کل مانیتور چیست؟ یا آیا میخواهید رنگ زمینه پنجره های ویندوز را تغییر دهید؟ چون در صورت سوالتون هیچ اشاره ای به تصویر مانیتور نشده است
بنده بر اساس برداشت هایی که از سوالتون کردم کدهای زیر را قرار میدم
1- که زیر رنگ زمینه پنجره ها را تغییر میدهد

Private Declare Function SetSysColors Lib "user32" _
(ByVal cElements As Integer, ByRef lpaElements As Integer, _
ByRef lpaRgbValues As Integer) As Integer
Private Const ColorBackground = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call SetSysColors(1, ColorBackground, RGB(100, 100, 100))
End Sub

2-کد زیر عکس زمینه دسکتاپ را تغییر میدهد


Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1

Public Sub SetWallpaper (ByVal FileName As String)
if FileName<>"" then
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,FileName , SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
endif
End Function



در ضمن من دستور Dir رو به این شکل استفاده کردم میگفت غلطه ....



if Dir(" Masire File Da Harjae ")=true then

Msgbox("Found")
else
me.hide
end if

مشکل در شیوه ی استفاده از دستور Dir هست که جناب parselearn (http://barnamenevis.org/member.php?48732-parselearn) در پست 7 لطفا کردند شکل صحیحشو نوشتن
موفق باشید
یاعلی