أي سؤال بالفيجوال بيسك أنا جاهز

السلام عليكم

عسا المانع خير

ويش فيك خوي باستر ليش ماعم بترد

بسم الله الرحمن الرحيم

اخي بسام العيساوي لدي سؤال

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

اريد كود حفظ بحيث هذا الكود يحفظ لي اي قيمة ادخلها في التكست بوكس علما ان هناك لالا توجد قاعدة بيانات ولاملف مصدر

والمثال التاي يفسر السؤال

لو افترضنا عند 2 تكست بوكس وزر كوماند بحيث اقوم بادخال قيمة معينة في التكسين ثم اضغط على الزر فيقوم بحفظ ما ادخلته في تلك التكيسن ويبقى محفوظ حتى ولو غلق البرنامج وهكذا

yem99en@hotmail.com

إلى الأخ yamani

في أمر بالفجوال بيسك

Savesetting("أي متغير ","أي متغير ","أي متغير ","المتغير إللي بدك تخزنه مثلا تكست واحد دوت تكست ")

بهاد الكود بتخزن أي قيمه في الريجيستري طبعا لما تستدعيها بس عليك تحط الثلاث متغيرات إللي حطيتهم في البدايه مثلا

text1.text=getsetting("a","b","c")

إلى الأخ ibrahimsafa

أولا من ناحيه دمج الملفات الخاصه ببرنامج معين طريقه معقدة جدا أما إللي المفروض تعمله إنك تعرف شو ملفات الدي أل أل والOCX إللى إنتا مستخدمها ببرنامجك أو تعمل باكيج وتوخد كل الملفات إللي بتلاقيها في الباكيج وتعمللها ريجيستر من خلال برنامج والكود الخاص بالريجيستر كثير شرحته وفي برنامج ست أب شرحته بالمنتدى ياريت ترج للمواضع إللي أنا منزلها وكمان شارح كثير عن الوين سوكيت

وشكرا

للأخت LIKE MooN

مافهمت شو طلبك بالضبط بس يمكن إنتي بدك تخلي كل الفورمات لهن خلفيه وحدة وخصائص ثابته بدون ماتكتبي الكود بكل مكان ...

مشان تخلي كل الفورمات إلهن خصائص وحده إعملي كالتالي

نزلي مديول على البروجيكت

بعدين إكتبي لكود التالي

public function back_Any(frm_Form as Form)
frm_Form.picture=loadpicture("C:\1.bmp")

end function

وأي خصائص بدك إياها إكتبيها داخل هاد الفانكشن بعدين بتستدعي الفانكشين بالفورم لود لكل فورم كالتالي

back_Any me

وإن شاء الله يكون هاذ مطلبك

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

أنا رنودة

راح أسوي مشروع عن الفضاء وأبغى أصوات ولقطات فيديو وغير كدا أبغى أعرف كود الصور المتحركة وأيضاً كود الشاشة الأسمية المتحركة وأرجو الرد بسرعة

عندي مشكلة يا ريت احد يساعدني فيها

انا عندي فورم و محتاجه ازيد حجم الفورم عند التصميم , اضفت picture وحطيت scrollbar

واستعملت هذي الاكواد :

Private Sub Form_Load()
'VScroll1.Max = (Picture1.Height - Me.Height) + HScroll1.Height
VScroll1.Min = 0
VScroll1.Value = 0
VScroll1.LargeChange = 100 'Arbitary values
VScroll1.SmallChange = 50 '-----"------

'HScroll1.Max = (Picture1.Width - Me.Width) + VScroll1.Width
HScroll1.Min = 0
HScroll1.Value = 0
HScroll1.LargeChange = 100
HScroll1.SmallChange = 50

Picture1.Left = -HScroll1.Value
Picture1.Top = -VScroll1.Value

End Sub

Private Sub Form_Resize()
'Check dimensions of the picturebox
'Show scrollbar depending on relative size
If Picture1.Height > Me.Height Then
'Height of form is smaller than PictureBox. Show Vertical SB
VScroll1.Visible = True
Else
VScroll1.Visible = False
End If

If Picture1.Width > Me.Width Then
'Width of form is smaller than PictureBox. Show Horiz. SB
HScroll1.Visible = True
Else
HScroll1.Visible = False
End If
'Show/Hide the Small Picturebox
If HScroll1.Visible = False And VScroll1.Visible = False Then
Picture2.Visible = False
Else
Picture2.Visible = True
End If

'Set width/height

HScroll1.Width = Me.ScaleWidth 
VScroll1.Height = Me.ScaleHeight 
'Set position
HScroll1.Left = 0
HScroll1.Top = Me.ScaleHeight - HScroll1.Height
VScroll1.Left = Me.ScaleWidth - VScroll1.Width
VScroll1.Top = 0
'Set Position
Picture2.Left = Me.ScaleWidth - VScroll1.Width
Picture2.Top = Me.ScaleHeight - HScroll1.Height
'Adjust height and width
HScroll1.Width = HScroll1.Width - Picture2.ScaleWidth
VScroll1.Height = VScroll1.Height - Picture2.ScaleHeight

'Set/Reset Maximum value
VScroll1.Max = (Picture1.Height - Me.Height) + HScroll1.Height
HScroll1.Max = (Picture1.Width - Me.Width) + VScroll1.Width
End Sub
Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Picture1.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Picture1.Top = -VScroll1.Value
End Sub

المشكله عند التنفيذ يكون طول الـ scrollbar اقل من طول الفورم نفسه , انا ابغى طوله يكون نفس طول الفورم سواء نفذت البرنامج على شاشه كبيره او صغيره . ما ادري وين المشكلة هل هناك طريقة معينه نحط بيها الـscrollbar ولا في خطأ في الكود يا ريت احد يقولي :( وعلى فكره الكود هذا ملطوش مو انا اللي عملته .

اختكم منار

الاخ العزيز باستر

اسف لاني اثقلت عليك

بس في نقطه حابب ان تعرفها

وهي انا جمعت كل المكتبات و كل ما يلزم

لتشغيل البرنامج من ملفات

بس كيف عملية الرجستري

هذا ما اريده اخي العزيز

تكرم علي يا غالي ودلني عليها

او اين وضعضها كما قلت او تكلمت عنها

واكن اكتيييييييييييييييييييييييييييير ممنونك

والسلام

ابراهيم الطيب

السودان - الخرطوم

عزرا اخي العزيز باستر :

اتمني ان يكون قصدك هذا الامر

shell app.path & "\any.dll /s"

أخي ibrahimsafa

نعم هذا هوه إللي أقصده :)

يمكن الله مرسلك يأخ بسام ارجوا منك مساعدتي في هذا البرنامج لأني تعبت من طرح هذا السؤال ولم أجد من مجيب .والتي فكرته كما يلي:

اولاً:

اريد تصميم قاعدة بيانات بها جدول يضم الإسم،والعمر،عدد الرسائل المرسله إليه ،والدولة التي سيقيم فيها( اسماء الدول عندي محددة فهناك الدول العربية مثل السعودية ،مصر ،سوريا وهناك دول أجنبية مثل أمريكا ،بريطانيا،فرنسا،سويسرا) فكيف اقوم بتصميم هذا الجدول إعتماداً على المعطيات التالية:

فورم في الفيجوال يحتوي على العناوين التالية:

1/بيانات الشخص

2/إحصائية بعدد الدول العربية(بحيث عند الضغط عليها تفتح فورم آخر يحتوي على list ومربع نص وفي داخل الlist أسماء الدول العربية وهي السعودية ،مصر ،سوريا وبمجرد النقر على أي دولة يكتب عدد الدول المقام فيها أي لنفرض إني ادرجت إسم شخصين في سوريا وثلاثة اشخاص في مصر حينها يكتب فقط 2 دولة في مربع النص)

3/إحصائية بعدد الدول الأجنبية(نفس الفكرة السابقة مع إستبدال اسماء الدول)

4/إحصائية بالعدد الكلي للدول العربية والأجنبية(بالضغط عليها تفتح فورم آخر فيه مربع نص مسجل فيه عدد الدول المقام فيها سواء عربية أو أجنبية)

5/إحصائية بعدد الرسائل المرسلةللدول العربية( كذلك تفتح فورم آخر مسجل فيها عدد الرسائل المرسله للدول العربية (فقط) المقام فيها أي لنفرض إن عدد الرسائل المسلة لمحمد 4 رسائل في مصر ، ولخالد 3 رسائل في السعودية حينها يكتب 7رسائل)

6/ إحصائية بعدد الرسائل المرسلةللدول الأجنبية (نفس الفكرة السابقة)

7/إحصائية بالمجموع الكلي للرسائل(طبعاً للدول العربية والأجنبية معاً)

ثانياً:

عارف إني غثيتكم بس ارجوا انكم ماتطنشوني وأرجوا ان تكون فكرة البرنامج واضحه

أخي الغالي بندر السعد

أنا عندما عرضت المساعده لآي شخص أقصد بها مساعده لشيء مهم وليس عمل مشروع كامل فأنا أعمل موظف وفي أوقات الفراغ أرد على أسئلتكم

ياريت يكون سؤال مش مشروع

وفي كل الأحوال كل مشروعك وكل الداتا بيز مبنيه على الSQL يعني ماعليك إلا إنك تعمل كويري بالآكسس وتوخد جملة الإس كيو إل وتسندها للRecordset

وقريبا رح أحط برنامج في هذا المنتدى مشروح بشكل تفصيلي عن الداتا بيز وكيفيه إنشاء الريبورت لآني لاحظت إنو كل الشباب بس بعرفوا داتا بيز :)

شكرا

السلام عليكم

اسف لكثر الاسئله اخوي باستر

هذا مخترح لبرنامج يقوم باسماع المستخدم بعض الاذكار

بين كل فتره و اخري مثل

( استغفر الله العظيم واتوب اليه)

( سبحان الله وبحمده)

( لا اله الا انت سبحانك اني كنت من الظالمين)

وغيرها من الاذكار

ملحق مع البرنامج مجلد فرعي باسم sound فيه بعض

الصوات التي سيتم اسبدالها ببعض الاذكار كما هو مخترح

اعلاه .

لا اكذبكم القول فقد رأيت هذا البرنامج قبل يومين عند

احد اصدقائي فاردت ان اقوم بكتابنه

كانت هذه فكرة البرنامج وفعلا تم التنفيذ الا انه وعندما

ينفذ الصوت الرابع وبدلا من ان يرجع الي الصوت الاول

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

الحوجه لوقف الصوت الرابع

والتي ارجو ان اجد لها الحل عندكم جزاكم الله الف خير

كما ارجو ان اكوم قد وفقت في طرح المشكله

ابراهيم الطيب ابراهيم

الخرطوم السودان

Email: Ibrahimeltayeb@hotmail.com

Ziker.zip

السلام عليكم

الله يجزيك خير الجزاء اخوي باستر

على جهدك المبذول وعلى انقاذك النا

سؤالي:

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

واتمنى ان تقوم اخي مشكورا بافجابة على سؤالي

أخوي ودااع

في هذا الكود

' I Found this code in one Site & made slight changes..
Dim therows As Integer
Dim thecols As Integer
Dim gridstyle As Integer
Dim xlapp As Excel.Application
Dim wbxl As Excel.Workbook
Dim wsxl As Excel.Worksheet
Dim introw As Integer 'counter
Dim intcol As Integer 'counter

'Take  a Command Button Named cmdExport paste this code on click event
Private Sub cmdExport_Click()
If Not IsObject(xlapp) Then
MsgBox "You need Microsoft Excel to use this function", _
vbExclamation, "Print to Excel"
Exit Sub
End If
On Error Resume Next

'TO Open Excel
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.WindowState = xlMaximized
'xlapp.Workbooks.Add
Set wbxl = xlapp.Workbooks.Add
Set wsxl = xlapp.ActiveSheet
'Fill spreadsheet

For introw = 1 To FlxList.Rows
For intcol = 1 To FlxList.Cols
wsxl.Cells(introw, intcol).Value = _
FlxList.TextMatrix(introw - 1, intcol - 1) & " "
Next
Next
'Calculate total rows
therows = FlxList.Rows
'Format the sheet
thecols = 7       'Replace with the number of columns in your Application..
 For intcol = 1 To thecols
 wsxl.Columns(intcol).AutoFit       ' Columns to Auto fit the Data
 wsxl.Range("a1", Right(wsxl.Columns(thecols).AddressLocal, _
 1) & therows).AutoFormat gridstyle          ' to select the whole Range
 'Vertical alignment Centre.
  wsxl.Range("a1", Right(wsxl.Columns(thecols).AddressLocal, _
 1) & therows).VerticalAlignment = xlCenter  ' To Make vertical alignment of Cell as center
 Next
wsxl.Range("a1", Right(wsxl.Columns(thecols).AddressLocal, _
 1) & therows).Select           ' to select all cell which has data
 put_border    ' Call this sub to change the Borde style of the cell like table

' Additional Tasks

 ' If you want to format any Coulmn as Date Field 
    wsxl.Columns(5).NumberFormat = "mm/dd/yyyy"  ' Use the Coulmn Number you need to change
if you want Align Any Coulm Data to Center Format
 wsxl.Columns(1).HorizontalAlignment = xlCenter
'If you want Change the Row height of the Data in Excel Sheet
For introw = 1 To therows
    wsxl.Rows(introw).RowHeight = 20  ' specify the height to need
 Next

'If you want to Make the Heading Bold and Center
wsxl.Range("A1:G1").Select  ' Replace with your  Range 
With Selection
   .Font.Bold = True
   .HorizontalAlignment = xlCenter
End With
'If you want to the Excel sheet data to Fit to one Page widh & Height
 wsxl.PageSetup.FitToPagesWide = 1
 wsxl.PageSetup.FitToPagesTall = 1
End Sub  ' Code Finishes here

' This is to change  Border style
Sub put_border()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

ومشروح كل سطر :)

شكرا

dear bastr3

i want to ask u about list in vb6,i did list and i want when the user choose item on the list for e.x item 3 then retrive the word that corrosponds to this item in the data base

dim x as integer

r=list1.listindex

sql="select word from table where number=r

.........

the error is few parameters

thanx

يعطيك العافية اخوي بسام وكان كود بسيط ووضاح بس عندي كمان سؤال فرضا انه عندي ملف ورد جاهز واريد ارساله عن طريق الكمبيوتر الى فاكس فما الكود المطلوب لتنفيذ هذه العملية علما انني قمت باستخدام OLE من الفيجوال لاستدعاء الويزرد الخاص بالفاكس المتوفر داخل ويندوز ولكنني وجدت انه متوفر فقط في ويندوز اكس بي اي اني لن استطيع تنفيذ البرنامج على اي جهاز لايتوفر فيه ويندوز اكس بي فهل طريقتي صحيحة وهل يوجد كود يغنيني عن استدعاء الويزرد المتوفر بالويندوز وبالتالي يمكنني تطبيق البرنامج على أي جهاز .

وشكرا لك

اختك ودااع

أخوتي الأعزاء

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

أود أن اٍألكم عن الدوال الخاصة ببرمجة الهاتف والتي تدلنا على معرفة ان الخط قد فتح في الطرف الثاني او ان الخط كان مشغول او ان الطرف الثاني من المكالمة قد انهى المكالمة وياريت على كل دالة مثال بسيط

وشكرا لكم

السلام عليكم

سؤالي إلى من يملك خبرة برمجية عالية ..

لدي في Form أداة checkbox ولدي frame ، ولكن checkbox ليست محتواة ضمن frame ..

كيف أستطيع أثناء تشغيل البرنامج أن أجعل هذه الـ checkbox أو أي أداة أخرى أن تصبح من ضمن محتويات Frame ??

الغاية من سؤالي هذا أنني أحاول تصميم أداة OCX تقوم بعمل الـ Frame ولكن مع خصائص إضافية

الى الاخ bastr3

كيف حالك

عندى سؤال

انا عندى قاعدة بيانات اكسس فيها جدول اسمه New وحقول من f1: f6

عايز اجمع قيمة f2 اللى من نوع double

والقيمة ارجعها فى متغير وليكن x

مع العلم بانى عندى سجلات كتيرة

كيف اربط شاشة الفلاش مع الفيجوال بيسك ........ اولا اعرض الفلاش وبعدين شاشة

من الفيجوال بيسك.......

ارجوووووووووووو المساعده

أخواني الأعزاء

أعتذر عن التأخير على الرد

في البدايه بشكركم

تاني شي رح أرد على أسئلتكم بس أفضى وأكثر سؤال عجبني سؤال الأخ مهند عبادي

وشكر

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

اريد المساعدة في ايجاد كتاب استطيع التحكم فيه عن طريق لغة البيسك ب ports of computer اي LPT and COM

و جزاكم الله خيراً

إلى الأخ remaz1980

أنا شايف إنك معرف متغير إكس وطلبت متغير مش معرفه إسمه آر يمكن هون الغلط

إلى الأخت ودااع

بدك الكنترول الخاص بالفاكس ماعمري إستخدمته بس ممكن يفيدك إنتي والأخ

 Jamalbootruba

هاد المثال ماجربته بس لقيته بالنت وبحكي إنو ممكن إستخدام الهاتف إن شاء الله يكون فيه فايده هاد المثال لآنو الوحيد إللي موجود على الشبكه قدرت أثق فيه :)

http://www.vbcode.com/asp/showzip.asp?ZipF...Ezip&theID=4336

الأخ مهند عبادي

فيه خاصيه لكل كنترول إسمها على ماأعتقد زارد بتجي آخر شي دايما ممكن تكون هيه الحل لمشكلتك بس أنا ماجربتها لآني كنت مشغول

الأخ ahmed_adel

إستخدم جمل الSQL دائما في برامجك إللي بتخص الداتا بيز لآنها بتسهل عليك الشغل

في بالSQL جمله للجمع Sum

الأخ جوري2004

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

الأخ wwwwww

هاد الموقع أو بالأصح المنتدى بحكي عن طلبك

http://www.andreavb.com/

وإن شاء الله بالتوفيق للجميع يارب

مبروك للأخ بسام أنه أصبح مشرف والله سيتحق