PictureBox on SSTab issues [Resolved}

[dw85745]

Using VB5, SP2.
Per Microsoft any SSTab issues corrected.


Tried the following code and can't get the string to print on the
picturebox.

Any suggestions appreciated.

Thanks
David

Private Sub SSTab1_Click(PreviousTab As Integer)
 
   If SSTab1.Tab = 1 Then
      With picTest
         .ForeColor = vbBlack
         .CurrentX = 10
         .CurrentY = 10
      End With
      picTest.Print "AaBaCa"
      picTest.Refresh                '<<added to see if needed a refresh
   End If
   
End Sub

[brucevde]

Set the PictureBox.AutoRedraw property to True.

[dw85745]

Thanks for responding brucevde.

---------

AutoRedraw = True.
In all cases PBox appears is visible and correctly positioned on the tab.


When text placed in PBox during Form_Load, text shows up OK in PBOx on tab.

However, it doesn't on Tab_Click, NOR if I invoke a listbox choice and attempt to show choice of listbox in PBOX.

Will try and make sample next hour or two and post.

[dw85745]

Here's the sample:

Only issue still left open is tab fonts ALSO change when resetting pBox font.

Other issues resolved when making sample. Used same code as large program so can only explain that system was shut down last night and something cleared from memory.

[brucevde]

In several places you have code similar to the following

With picTab
      .Cls
      .ForeColor = vbBlack
      
      With Font
         .Name = lstFonts.List(lstFonts.ListIndex)
         .Italic = True
      End With

Note the With Font statement. Since you are not specifying which object's Font you want to modify it is using the Form's font object. Apparently, the SSTab is responing to these changes - which is unusual as most controls do not exhibit this behaviour.

Anyways, I think you just want to change the Font of the picture box. So make sure you use

With .Font

[dw85745]

Thanks brucevde for catching my error.

Guess old eyes are going.