View Full Version : ارور برنامه
فاطمه وطن دوست
یک شنبه 10 شهریور 1387, 17:50 عصر
سلام
نمیدونم چرا هر بار که پروژه رو stop میکنم : به صورت تصویر زیر در میاد کلی ارور میده بعدشم
بعضی از کنترل ها نابود میشه :لبخند:
رندومی هر بار یکی از ابزارام میپره !!!!!
================================================== =====
فکر میکنم از ابزار ساعت ، ایراد میگیره از روی اروری که تو تصویر مشخصه میشه حدس زد .
اینم اون اکتیوایکسی که من استفاده کردم . (ابزار ساعت)
http://barnamenevis.org/forum/showpost.php?p=573052&postcount=274
شایدم ایراد از برنامه ی نوشته شده هست !!!!
loads
دوشنبه 11 شهریور 1387, 01:49 صبح
ممنون از اینکه خطا رو گذارش دادید ، ولی نگفتید خطاهای دیگه چی بوده . من روی 3 سیستم تست کردم درست کار میکرد . این یکی که گذاشتم رو تست کنید و نتیجه رو بگید
فاطمه وطن دوست
دوشنبه 11 شهریور 1387, 15:06 عصر
سلام
ظاهرا خطا از لود شدن تصاویر در دو ستون نمایش و ویرایش هست . !!!!
خواستم یه تنوعی باشه ولی مثل اینکه نمیشه !!!! :لبخند:
شرمنده که مزاحم وقت شما شدم ، معذرت میخوام .
فاطمه وطن دوست
دوشنبه 11 شهریور 1387, 15:58 عصر
سلام
دوستانی که از vsflexgrid استفاده میکنن ( به منظور درج عکس تو یه ستون لطف میکنن این کدو تست کنن ؟ )
Public Sub loading_Custemer(ByVal Adodc1 As Adodc, ByVal vsFlex As VSFlexGrid, ByVal strsql As String)
Dim ACCSEESFILE As String
ACCSEESFILE = App.Path + "\PartSole_Tarsimat.mdb"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ACCSEESFILE
.CursorLocation = adUseClient
.CommandType = adCmdText
.RecordSource = strsql
.Refresh
End With
With vsFlex
.TextMatrix(0, 0) = ""
.TextMatrix(0, 1) = "˜Ï ãÔÊÑí"
.TextMatrix(0, 2) = "äÇã ãÔÊÑí"
.TextMatrix(0, 3) = "äãÇíÔ"
.TextMatrix(0, 4) = "æíÑÇíÔ"
.TextMatrix(0, 5) = "ÍÐÝ"
.ColWidth(0) = 1000
.ColWidth(1) = 3000
.ColWidth(2) = 3000
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 1000
.ColAlignment(0) = 3
.ColAlignment(1) = 3
.ColAlignment(2) = 3
.ColAlignment(3) = 3
.ColAlignment(4) = 3
.ColAlignment(5) = 3
.PictureType = flexPictureColor
.PicturesOver = True
End With
If Adodc1.Recordset.RecordCount > 0 Then
For Counter = 0 To Adodc1.Recordset.RecordCount - 1
With vsFlex
.Cell(flexcpPictureAlignment, Counter + 1, 3) = 4
.Cell(flexcpPicture, Counter + 1, 3) = LoadPicture(app.path+"\Card.ico")
.Cell(flexcpPictureAlignment, Counter + 1, 4) = 4
.Cell(flexcpPicture, Counter + 1, 4) = LoadPicture(app.path+"\Edit.ico")
.Cell(flexcpPictureAlignment, Counter + 1, 5) = 4
.Cell(flexcpPicture, Counter + 1, 5) = LoadPicture(app.path+"\Delete.ico")
End With
Next
End If
سه متن اسم ایکون شماست . ( خودتون باید اسم عکسی که میخواین تو سه ستون نمایش -ویرایش-حذف ) نمایش داده بشه ، باید بنویسید.
میخوام بدونم دلیل اصلی ارور چیه ،آیا تو سیستم شما هم ارور میده یا نه
:::::::::......................................... ......... چون باید رفع بشه !!!!!http://forum.p30world.com/images/New-smile/N_aggressive%20(11).gif
فاطمه وطن دوست
دوشنبه 11 شهریور 1387, 18:49 عصر
سلام
پس برای بقیه دوستان هم همین مشکل رو داره !!!!!
ASKaffash
دوشنبه 11 شهریور 1387, 19:07 عصر
سلام
خانم وطن دوست خوب نمیشود تست کرد چون هم DB را میخواهد و هم 3تا Icon را برای همین است که کسی جواب نمیدهد
فاطمه وطن دوست
دوشنبه 11 شهریور 1387, 20:28 عصر
سلام
لطفا نمونه رو تست کنید
Mbt925
سه شنبه 12 شهریور 1387, 17:15 عصر
تصاویر بدرستی نمایش داده میشن.
:::.. البته هیچ وقت در آدرس دهی درست عمل نمی کنید ..:::
فاطمه وطن دوست
سه شنبه 12 شهریور 1387, 20:19 عصر
سلام
اولا http://barnamenevis.org/forum/images/buttons/post_thanks.gif (http://barnamenevis.org/forum/post_thanks.php?do=post_thanks_add&p=584717) از اینکه زحمت کشیدین و نمونه رو تست کردین .
مشکلی تو نمایش عکس تو گرید ندارم . به راحتی انجام میشه .
پروژه رو وقتی end میکنم ، این ارور رو میده !!!
درسته تو نمونه ای که گذاشتم ، اصلا حواسم نبود تصحیح کنم منظورم این خط تو ماژول هست .
Public Sub loading_Custemer(ByVal Adodc1 As Adodc, ByVal vsFlex As VSFlexGrid, ByVal strsql As String)
:::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: :::
With vsFlex
.Cell(flexcpPictureAlignment, Counter + 1, 3) = 4
.Cell(flexcpPicture, Counter + 1, 3) = LoadPicture("D:\partsole1\Cursors\Card.ico")
.Cell(flexcpPictureAlignment, Counter + 1, 4) = 4
.Cell(flexcpPicture, Counter + 1, 4) = LoadPicture("D:\partsole1\Cursors\Card-Edit.ico")
.Cell(flexcpPictureAlignment, Counter + 1, 5) = 4
.Cell(flexcpPicture, Counter + 1, 5) = LoadPicture("D:\partsole1\Cursors\Card-Delete.ico")
End With
فاطمه وطن دوست
چهارشنبه 13 شهریور 1387, 04:04 صبح
سلام
http://msdn.microsoft.com/en-us/library/aa243536(VS.60).aspx
اینجا دلیل خطا رو گفته ،یعنی چی آخه ؟
از دوستان میشه در این مورد بیشتر توضیح بدن ؟
¯`•.¸¸¸.•` ¯`•.¸¸¸.•`¯`•.¸¸¸.•` ¯`•.¸¸¸.•` ¯`•.¸¸¸.•`¯`•.¸¸¸.•`
Mbt925
چهارشنبه 13 شهریور 1387, 12:23 عصر
در نمونه اروری رخ نمی ده.
اروری که گفتین به اون صفحه ارتباطی نداره!
فاطمه وطن دوست
چهارشنبه 13 شهریور 1387, 15:35 عصر
در نمونه اروری رخ نمی ده.
اروری که گفتین به اون صفحه ارتباطی نداره!
سلام
ای کاش حداقل یه توضیح در مورد لینکی که گذاشتم میدادین .
چرا حافظه کم میاره vb ?
Mbt925
چهارشنبه 13 شهریور 1387, 22:03 عصر
سلام
ای کاش حداقل یه توضیح در مورد لینکی که گذاشتم میدادین .
چرا حافظه کم میاره vb ?
مشخصه.
وقتی AutoRedraw مقدار True داشته باشه، با هر تغییری ، اشکال دوباره رسم میشن.
حال اگه ای تغییرات زیاد باشن و حجم ترسیمی بالا، مشکل ایجاد میشه.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.