مشاهدة النسخة كاملة : مساعده ضرورية في الفيجوال ستديو نت ؟؟
كتكوته دلع
18-05-2008, 08:10 AM
عندي في الجامعه عمل برنامج بالفيجوال بيسك نت ستديو
ونوعه يكون فيه بيانات بالاكسل
واربطها بنفس البرنامج
انا عملت البيانات وعملت البرنامج بس اللي ما عرفته
كيف اربط البرنامج بالاكسل عن طريق ضغط المربع اللي حطيته بالبرنامج
ابي اضغط عليه واروح للاكسل
اتمنى اني اكون وضحت اللي ابيه
وجزاكم الله الف خير ردو علي ضروري والله
ابن مكه
18-05-2008, 03:59 PM
??????
cute1428_2
18-05-2008, 05:31 PM
جربي هالكود ^^
db.Open(My.Application.Info.DirectoryPath & "\db1.mdb"(
شوفي ترى فيه أكواد سابقه "( هذه حطيها بعد .mdb وغيري اسم db1 لاسم الملف الي بتحطينه :)
على فكره الكود من برنامج سواه
san7areb
يعطيه ربي العافه وان شالله أكون أفدتك ...
CoDe.NeT
19-05-2008, 12:06 AM
على سبيل المثال
مقتبس من مكتبة VB.NET Code Library
العمليات الحسابية المعقدة مع الاكسل
من المعروف ان من اهم الوظائف التي يقوم بها برنامج الاكسل هي القيام بالعمليات الحسابية المعقدة جدا . لذلك سنتعرف اليوم على كيفية ربط برنامج الاكسل و ادخال العبارات الحسابية اليه ثم اخراج النتائج .
اولا: من قائمة Project اختر Add Reference , من علامة التبويب com اختر العنصر Microsoft Excel 10 Object Library ثم اضغط OK .
ثانيا: اضف زر امر و اكتب الكود الاتي:
'يمثل هذا المتغير برنامج الاكسل
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim exl As New Excel.Application
'سنخزن في هذا المتغير عبارة رياضية معقدة
Dim mathStr As String
'امكانية ادخال العبارات الرياضية من المستخدم
mathStr = InputBox("Enter math expression to evaluate", , _
"cos(56.7/4)/exp(-4.269)")
If mathStr <> "" Then
Try
'اظهار نتيجة العبارة الرياضية
MsgBox(exl.Evaluate(mathStr).ToString)
'في حال وجود خطأ
Catch exc As Exception
MsgBox(exc.Message)
End Try
End If
End Sub
End Class
كود تشغيل برنامج الاكسل
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim exl As New Excel.Application
exl.Visible = True
'exl.DefaultFilePath = ("c:\e.xls")
'exl = Nothing
End Sub
End Class
اما تشغيل الملف فلم اتوصل اليه
كتكوته دلع
19-05-2008, 12:26 AM
جزاكم الله كل خير على ردكم
بس ما فهمت وش القصد
انا ما عرفت كيف احطها
كيووت كيف احط الامر في البرنامج
ما عرفت
cute1428_2
19-05-2008, 07:41 PM
هلا حبيبتي ^^
شوفي مثلا لوتبين ملف الاكسل ينفتح اذا ضغطتي الButton كمثال
كليك عليه بنفتحلك الكودات اكتبي انتي هالكود موشرط الButton اي شي واذا تبينه ينفتح اول ما يشتغل البرنامج حطيه في الload form
ان شالله قلبي فهمتي والله يوفقك....
كتكوته دلع
27-05-2008, 01:27 AM
ان شاء الله كيووت اكون فهمت
بحاول استوعب لين اوصل للنتيجه
وجزاك الله الف خير
عديلة صندوق
31-05-2008, 05:00 AM
يا عينى عالحب;)
يامشاغب يا مجمع الحبايب;)
ASrtre258
31-05-2008, 11:24 AM
يا عينى عالحب;)
يامشاغب يا مجمع الحبايب;)
بتجيبى لنفسك مصيبة ياعديلة:D
بحب الفلور
01-06-2008, 04:20 AM
يا عينى عالحب;)
يامشاغب يا مجمع الحبايب;)
:) فعلا
vBulletin v3.6.3, Copyright ©2000-2009