ارور برنامه

[فاطمه وطن دوست]

سلام

نمیدونم چرا هر بار که پروژه رو stop میکنم : به صورت تصویر زیر در میاد کلی ارور میده بعدشم
بعضی از کنترل ها نابود میشه :لبخند:

رندومی هر بار یکی از ابزارام میپره !!!!!

================================================== =====

فکر میکنم از ابزار ساعت ، ایراد میگیره از روی اروری که تو تصویر مشخصه میشه حدس زد .
اینم اون اکتیوایکسی که من استفاده کردم . (ابزار ساعت)
http://barnamenevis.org/forum/showpost.php?p=573052&postcount=274


شایدم ایراد از برنامه ی نوشته شده هست !!!!

[loads]

ممنون از اینکه خطا رو گذارش دادید ، ولی نگفتید خطاهای دیگه چی بوده . من روی 3 سیستم تست کردم درست کار میکرد . این یکی که گذاشتم رو تست کنید و نتیجه رو بگید

[فاطمه وطن دوست]

سلام

ظاهرا خطا از لود شدن تصاویر در دو ستون نمایش و ویرایش هست . !!!!

خواستم یه تنوعی باشه ولی مثل اینکه نمیشه !!!! :لبخند:

شرمنده که مزاحم وقت شما شدم ، معذرت میخوام .

[فاطمه وطن دوست]

سلام

دوستانی که از 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

[فاطمه وطن دوست]

سلام

پس برای بقیه دوستان هم همین مشکل رو داره !!!!!

[ASKaffash]

سلام
خانم وطن دوست خوب نمیشود تست کرد چون هم DB را میخواهد و هم 3تا Icon را برای همین است که کسی جواب نمیدهد

[فاطمه وطن دوست]

سلام
لطفا نمونه رو تست کنید

[Mbt925]

تصاویر بدرستی نمایش داده میشن.

:::.. البته هیچ وقت در آدرس دهی درست عمل نمی کنید ..:::

[فاطمه وطن دوست]

سلام

اولا 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

[فاطمه وطن دوست]

سلام

http://msdn.microsoft.com/en-us/library/aa243536(VS.60).aspx

اینجا دلیل خطا رو گفته ،یعنی چی آخه ؟

از دوستان میشه در این مورد بیشتر توضیح بدن ؟



¯`•.¸¸¸.•` ¯`•.¸¸¸.•`¯`•.¸¸¸.•` ¯`•.¸¸¸.•` ¯`•.¸¸¸.•`¯`•.¸¸¸.•`

[Mbt925]

در نمونه اروری رخ نمی ده.

اروری که گفتین به اون صفحه ارتباطی نداره!

[فاطمه وطن دوست]

در نمونه اروری رخ نمی ده.

اروری که گفتین به اون صفحه ارتباطی نداره!

سلام

ای کاش حداقل یه توضیح در مورد لینکی که گذاشتم میدادین .
چرا حافظه کم میاره vb ?

[Mbt925]

سلام

ای کاش حداقل یه توضیح در مورد لینکی که گذاشتم میدادین .
چرا حافظه کم میاره vb ?

مشخصه.
وقتی AutoRedraw مقدار True داشته باشه، با هر تغییری ، اشکال دوباره رسم میشن.
حال اگه ای تغییرات زیاد باشن و حجم ترسیمی بالا، مشکل ایجاد میشه.