رسم متون بر روی picturebox در VB6

m_mx2009 · Mar 10, 2012

سلام دوستان
کسی اطلاع داره چطور میشه داخل Picturebox یه مختصات داد و مثلا در یه محل خاص یه متن رو چاپ کرد؟
ممنون میشم از همگی.... :rose:

the_king · Mar 10, 2012

m_mx2009 گفت:
سلام دوستان
کسی اطلاع داره چطور میشه داخل Picturebox یه مختصات داد و مثلا در یه محل خاص یه متن رو چاپ کرد؟
ممنون میشم از همگی....

آماده سازی قبل از چاپ :

کد:

    Picture1.AutoRedraw = True
    Picture1.ScaleMode = vbPixels
    Dim text As String
    text = "Sample Text"

نمایش متن در مختصات (10,5) از چپ به راست :

کد:

    Picture1.CurrentX = 10
    Picture1.CurrentY = 5
    Picture1.Print text

نمایش متن در مختصات (100,20) از راست به چپ :

کد:

    Picture1.CurrentX = 100 - Picture1.TextWidth(text)
    Picture1.CurrentY = 20
    Picture1.Print text