إخواني الكرام .... اخوكم بحاجة لمساعدة في الفيجوال بيسك :)

السلام عليكم ورحمة الله وبركاته

أخواني و اخواتي الكرام

جلست اياما وانا ابحث عن منتدى يهتم بالبرمجه والفيجوال بيسك حتى استطيع ان اساله سؤالي :D
والحمد لله وصلت للمنتدى الرائع :)

اخواني الكرام
انا الحين بحاول اسوي برنامج خفيف على الفيجوال بيسك وفي نقتطين وصلت لهم ووقفت لان امكانياتي في الفيجوال بيسك 6 مش كثير :D

الي اطلبه منكم انكم تساعدوني في الكود الي هو
كيف اقدر اخلي عبارة في البرنامج تكون مفعلة كرابط انترنت مثلا
"ادخل الموقع " او " سماع انشودة مع الله " طبعا تكون رابط انترنت يعني لما تضغط انت على الرابط تفتح الانشودة من الانترنت ... مش تكون مخزنة على الجهاز :33:

ارجو ان يساعدني احد في هذه النقطة :)

النقطة الثانية
وهي
ما هو الامر الي اكتبه في الكوماند حتى يقوم تلقائيا بتظليل ونسخ محتوى التكست 1 مثلا
:02:

النقطة الثالثة ..
الحين انا بحاول اني اكتب في التكست اكثر من سطر ولكن ما اقدر مثلا انا كتبت امر كوماند وهو
text1.text="تتتتتتتتتتتتتتتتتتتتتتتتتتتت"
انا الي بدي ايا انو ما يكون النص سطر واحد فقط لانو مثلا بدي يكون بهذا الشكل
هذا البرنامج اهداء من
اخوكم ون ميغا
وهو مقدم لكل من
طبعا لو تلاحظون 3 اسطر احتاج :afraid:

فهل من حلول لمشاكلي :02:

واعذروني على كثرة الاسئلة ... ولكن توقف برنامجي على هذه الامور :D
وبعدني مبتدا :31:

ارجو منكم مساعدتي وتحمل اسئلتي

اخوكم احمد

الله يخليكم اخواني
حتى لو انني لا استطيع ان اقوم بها بلغة الفيجوال بيسك فاعلموني حتى لا ابقى على امل :)
وبارك الله فيكم

-- الي اطلبه منكم انكم تساعدوني في الكود الي هو
-- كيف اقدر اخلي عبارة في البرنامج تكون مفعلة كرابط انترنت مثلا
-- "ادخل الموقع " او " سماع انشودة مع الله " طبعا تكون رابط انترنت يعني لما تضغط انت على الرابط تفتح الانشودة من الانترنت ... مش تكون مخزنة على الجهاز

قم باضافة نص باستخدام اداة العنونة (رمزها حرف A ) ..و ادخل الكود التالي للنص

ShellExecute GetActiveWindow(), "Open", "LINKHERE", "", 0&, 1

حيث ان LINKHERE هي الوصلة (اللينك)


-- ما هو الامر الي اكتبه في الكوماند حتى يقوم تلقائيا بتظليل ونسخ محتوى التكست 1 مثلا

Clipboard.Clear
Clipboard.SetText Text1.Text

حيث انت text1 هو اسم مربع النص

-- الحين انا بحاول اني اكتب في التكست اكثر من سطر ولكن ما اقدر مثلا انا كتبت امر كوماند وهو
-- text1.text="تتتتتتتتتتتتتتتتتتتتتتتتتتتت"
-- انا الي بدي ايا انو ما يكون النص سطر واحد فقط لانو مثلا بدي يكون بهذا الشكل
-- هذا البرنامج اهداء من
-- اخوكم ون ميغا
-- وهو مقدم لكل من
-- طبعا لو تلاحظون 3 اسطر احتاج

اضف مربع نص و غير خاصية ال Multiline الى True
ثم اكتب النص الذي تريده في خانة Text او اضف الكود التالي

Text1.Text = ""
Text1.Text = "Line1" & vbCrLf & "Line2" & vbCrLf & "Line3"

الله يعطيك الف الف عافية اخوي

ما قصرت جزاك الله الخير

جعلها الله في ميزان حسناتك

----------- اخي بارك الله فيك ---------

كل الامور تمام بس في شغلة ما ضبطت معي وهي تفعيل لنك انترنت
وضعت الكود وغيرت اللنك للرابط ولكن يظهر لي رسالة خطأ ويقوم بتظليل GetActiveWindow بالاصفر

وقد صورة لك المشكلة حتى تكون اوضح
:D
http://www.a-edu.net/up_ar/ar/pro1.gif


واخي ممكن سؤال اذا ممكن :D
استحملني اسالتي كثير

اخوي هل من طريقة لتغيير شكل ايقونة البرنامج بعد ما اقوم بتصدير برنامجي ب exe فان الصورة الي تظهر هي المتعارف عليها هل ممكن ان اقوم بتغييرها لصورة اخرى :D

والله يعطيك العافية وشكرا لك لمساعدتي ربنا يوفقك يارب

اعذرني اخي انا نسيت اهم شيء و هو كود استدعاء الAPIs

ضع هذا الكود في اعلى الصفحة

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ليصبح الكود الكامل للفورم

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Label1_Click()
ShellExecute GetActiveWindow(), "Open", "LINKHERE", "", 0&, 1
End Sub

انشاالله راح يشتغل هيك

ملاحظة اخي .. ممكن انك تغير لون النص و تضع خط تحته حتى يظهر علينك عن طريق تغير خصية ال ForeColor و الFont .. او قم باضافة الكود التالي للفورم

Private Sub Form_Load()
Label1.ForeColor = &HFF0000
Label1.FontUnderline = True
End Sub

ألف ألف شكر لك أخوي .......
الله يجزيك كل خير ويطعمك لحم طير من طيور الجنة .......

اخي اذا ممكن كمان سؤال :)
اخوي هل من طريقة لتغيير شكل ايقونة البرنامج بعد ما اقوم بتصدير برنامجي ب exe فان الصورة الي تظهر هي المتعارف عليها هل ممكن ان اقوم بتغييرها لصورة اخرى

واسف على كثرة الاسئلة :)

ممكن أخوي تغير الايقونة عن طريق الذهب الى خصائص البرنامج عبر رايت كليك ثم خصائص وبعد هيك افتح التبويب الثاني وانتقي تغير الايقونة ومن ثم اختر من جهازك
ملاحظة : لازم يكون امتداد الايقونة ico
أخوك عماوي

شكرا لك اخي على المساعدى
ولكن اخي الطريقة هذي ما بتزبط لانه لازم يكون الملف شورتك " يعني اختصار " بس انا بدي اغير الايقونة الاساسية
:)

اخي الكريم لتغير ايقونة البرنامج يجب عليك تغير ايقونة الفورم الرئيسي من خاصية Icon..

الايقون الحالي للبرنامج تراه بالذهاب الى Project ثم Project Properties ثم علامة التبويب Make ....

بارك الله في حسناتك
:)