FrameXp.ctl
资源名称:XPTab.rar [点击查看]
上传用户:eleven0727
上传日期:2009-12-26
资源大小:124k
文件大小:20k
源码类别:
Tab控件
开发平台:
Visual Basic
- VERSION 5.00
- Begin VB.UserControl Xp_Frame
- Alignable = -1 'True
- Appearance = 0 'Flat
- AutoRedraw = -1 'True
- BackColor = &H80000005&
- ClientHeight = 315
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 930
- ControlContainer= -1 'True
- ScaleHeight = 21
- ScaleMode = 3 'Pixel
- ScaleWidth = 62
- ToolboxBitmap = "FrameXp.ctx":0000
- Begin VB.Image img
- Height = 300
- Left = 0
- Picture = "FrameXp.ctx":0312
- Top = 0
- Visible = 0 'False
- Width = 330
- End
- Begin VB.Label lbl
- Alignment = 2 'Center
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H80000005&
- Caption = " Frame1"
- ForeColor = &H00FF0000&
- Height = 195
- Left = 360
- TabIndex = 24
- Top = 0
- Width = 570
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 0
- Left = 9000
- TabIndex = 23
- Top = 240
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 1
- Left = 9000
- TabIndex = 22
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 2
- Left = 9000
- TabIndex = 21
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 3
- Left = 9000
- TabIndex = 20
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 4
- Left = 9000
- TabIndex = 19
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 5
- Left = 9000
- TabIndex = 18
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 6
- Left = 9000
- TabIndex = 17
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 7
- Left = 9000
- TabIndex = 16
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 8
- Left = 9000
- TabIndex = 15
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 9
- Left = 9000
- TabIndex = 14
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 10
- Left = 9000
- TabIndex = 13
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 11
- Left = 9000
- TabIndex = 12
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 12
- Left = 9000
- TabIndex = 11
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 13
- Left = 9000
- TabIndex = 10
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 14
- Left = 9000
- TabIndex = 9
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 15
- Left = 9000
- TabIndex = 8
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 16
- Left = 9000
- TabIndex = 7
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 17
- Left = 9000
- TabIndex = 6
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 18
- Left = 9000
- TabIndex = 5
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 19
- Left = 9000
- TabIndex = 4
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 20
- Left = 9000
- TabIndex = 3
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 21
- Left = 9000
- TabIndex = 2
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 22
- Left = 9000
- TabIndex = 1
- Top = 0
- Width = 135
- End
- Begin VB.Label dot
- BackStyle = 0 'Transparent
- Caption = "."
- ForeColor = &H8000000B&
- Height = 255
- Index = 23
- Left = 9000
- TabIndex = 0
- Top = 0
- Width = 135
- End
- End
- Attribute VB_Name = "Xp_Frame"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- '* * * * * * * * * * * * * * * * * * * * * * * * * * * *
- ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- '* * This code is originaly writen by Aleks Kimhi - Aki. *
- ' * As you might have read that this ActiveX control is free, O *
- '* * and therefore can be distributed for free as long as you *
- ' * do not sell it for profit and there's still my name on it. ____| *
- '* * I've spend some time on this project so please *
- ' * don't just take it, use it and say you wrote it. *
- '* * Thank you for your co-operation. Any comments, P *
- ' * good or bad, would be greatly appreciated. *
- '* * E -mail: aniram@ zahav.net.il *
- ' * Tel-Aviv, Israel A & M