Results 1 to 2 of 2

Thread: labels.

  1. #1

    Thread Starter
    Member
    Join Date
    Jan 2000
    Location
    Launceston, Tasmania, Australia
    Posts
    44

    Post

    I've just gotta a couple of questions about labels.

    1. is there a way to sort of flip a label so it could be upside down vertical or which ever direction?

    2. can make the actual text of a label partly transperant? so I could kinda make a sort of a shadow effect?

    ok the next question is really dumb of me and it isn't about labels but I've never used scroll bars by placing them on forms before.

    how do you use a scroll bar by placing it on a certain area on a form change a number in a text box, by adding one when they click up and deleting one when they click down?

    thanx

    ------------------
    Mooose

  2. #2
    Member
    Join Date
    Jan 2000
    Location
    Southbridge, MA, USA
    Posts
    40

    Post

    1. I don't know.
    2. Create a label and it's caption. Set the BackStyle to transparent and the ForeColor to &H0000012&. Copy that label, making it a control array, and make its Top and Left 20 twips greater than the first. Set its ForeColor to &H0000010&. Voila, a nice shadow. [You may have to reverse the ForeColors depending on the look you want.]
    3. Try this:
    Option Explicit
    Dim old_hscrollValue As Integer

    Private Sub HScroll1_Change()
    If HScroll1.Value > old_hscrollValue Then
    Label2.Caption = Label2.Caption + 1
    Else
    Label2.Caption = Label2.Caption - 1
    End If
    old_hscrollValue = HScroll1.Value
    End Sub

    Make sure to set your Max, Min, LargeChange, and SmallChange values to something reasonable [such as 100, 0, 10, 1].

    Also, set Label2.Caption = 0 [or whatever number you want] as a property or on Form_Load.

    [This message has been edited by cfmoxey (edited 01-27-2000).]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width