الى الاستاذ خالى فهد كود اخر لو سمحت

[صبرى محمد]

ارجوك يا استاذى
كود كيف اضف خطوط بطول و عرض ListView مثل برنامج اكسل
كود وضع ارقام داخل Combo1 تبدا من 00:00 حتى 23:45 بحيث تتخطى ربع ساعه
كود حاصل طرح وقتين بحيس يكون الناتج ديتسيمال اى مثال (من 6:30 حتى 16:15 ) يكون الناتج = 9.75 هذا هو مثال فقط اى الوقت متغير دائما
ولكم جذير الشكرررر

[خالي فهد]

السلام عليكم

اخوي صبري (مافيه لزوم لكلمة استاذ، احنا كلنا اخوان)

بالنسبة لخطوط طول وعرض فالـListView لايوفر هذة الميزة لكن بامكانك رسم خطوط فوق هذا التحكم، لكن المشكلة انك اذا رسم خط (Line) فانه سيكون خلف التحكم ListView ولايمكن نقله للامام (بشكل عام لايمكن وضع Label أو Shape او Line ) فوق اي تحكم Control ،، الا اذا كان ذلك التحكم من نوع حاوية Container).
لكن هناك حل وان لم يكن احترافيا، الاوهو استخدام تحكم الصور Picture او الاطار Frame كخط (اجعل سماكة التحكم اصغر مايمكن فيبدو كانه خط، وغير لون الخلفية للون مناسب) ثم قم بترتيبه لعمل شبكة وطابق الابعاد عن طريقة التجربة.

الحل العملي والاحترفاي هو استعمال تحكم Grid ، فهو من الاساس يعرض على شكل جداول اكسل

اما بالنسبة للطلبين الاخرين ففي المشاركة التالية (لم اكتب النص بعد)

[خالي فهد]

السلام عليكم

اخي صبري
ما قدرت ارفق الملف للبرنامج (المنتدي اليوم مايسمح الا txt و 100 بايت بس )

بس راح الصق النص في الرسالة:

[l]

Private Sub cmdAdd_Click()
Dim tQ As String

tQ = "00:00"
Combo1.AddItem FormatDateTime(tQ, vbShortTime)
Do While TimeValue(tQ) < TimeValue("23:45")
tQ = TimeValue(tQ) + TimeValue("00:15")
Combo1.AddItem FormatDateTime(tQ, vbShortTime)
Loop
End Sub

Private Sub cmdCalculate_Click()
Dim sinTime1 As Single
Dim sinTime2 As Single

sinTime1 = Hour(Text1.Text) + Minute(Text1.Text) / 100
sinTime2 = Hour(Text2.Text) + Minute(Text2.Text) / 100
Text3.Text = sinTime1 - sinTime2
End Sub
[/l]

[صبرى محمد]

اشكرك اخى
والله العظيم انت استاذ وتستحق هذا اللقب عن جداره
وفقك الله
وجعل لك فى كل خطوه سلامه

العلم نور