تبلیغات


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

(بستن)

آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای - بدست آوردن كد RGB رنگ مورد نظر
آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای
زکات علم آموختن است.

آرشیو موضوعی

لینکدونی

آرشیو

لینکستان

آمار در میهن بلاگ

  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

سخن مدیر

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

تبادل بنر تبلیغاتی تبادل لوگوی وبلاگ

کلاسهای آموزش برنامه نویسی :

VB6 - VB.NET - C - C# - ASP - ASP.NET - PHP - SQL

به صورت خصوصی در مشهد با قیمت جلسه ای 15 هزار تومان - (حرفه ای شوید)

جهت کسب اطلاعات بیشتر با شماره 09364222771 تماس بگیرید

نظــــر = شخصیّــت Smiley


مرجع كامل مستند

بدست آوردن كد RGB رنگ مورد نظر

یك پروژه جدید باز كنید و یك شی CommonDialog از قسمت Components ها به فرمتون اضافه كنید و كد زیر رو تو قسمت جنرال فرمتون كپی كنید :

Private Sub Form_Click()
CommonDialog1.ShowColor
Red = ConvertToRGB(CommonDialog1.Color, 0)
Green = ConvertToRGB(CommonDialog1.Color, 1)
Blue = ConvertToRGB(CommonDialog1.Color, 2)
Me.Cls
Print "R = " & Red
Print "G = " & Green
Print "B = " & Blue
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
CommonDialog1.Flags = 2
End Sub
'----------------------------------
Public Function ConvertToRGB(ByVal Colors As Long, ByVal Index As Integer) As Long
Dim Red As Integer, Green As Integer, Blue As Integer
Dim lngColor As Long
lngColor = Colors
Red = lngColor Mod &H100 ' &H100 = 256
Green = (lngColor \ &H100) Mod &H100
Blue = lngColor \ &H10000 ' &H10000 = 65536 = (256*256)
If Index = 0 Then ConvertToRGB = Red
If Index = 1 Then ConvertToRGB = Green
If Index = 2 Then ConvertToRGB = Blue
End Function


حالا برنامتون رو اجرا كنید و روی فرمتون كلیك كنید و از جعبه رنگی كه ظاهر میشه یك رنگ انتخاب كنید و OK كنید تا كد RGB رنگ رو تو فرمتون ببینید. موفق باشید.


نظــــر بــــدهید...

درباره وبلاگ

بهترین آموزشگاه برنامه نویسی به زبان ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای همراه با آموزش آنتی ویروس نویسی حرفه ای و سورس های آماده ویروس
مدیر وبلاگ : امیر امیری

آخرین پست ها

جستجو

نویسندگان

آمار در وبگذر

Page Rank