home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{E4D5D928-FD35-4D0A-92CD-F3CE02D68455}#1.0#0"; "ahtmlle2.ocx"
- Begin VB.Form frmOLEDragAndDrop
- BorderStyle = 3 'Fixed Dialog
- Caption = "OLE Drag and Drop Demonstration"
- ClientHeight = 6360
- ClientLeft = 1950
- ClientTop = 1545
- ClientWidth = 7035
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "OLEDragAndDrop.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 424
- ScaleMode = 3 'Pixel
- ScaleWidth = 469
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin HTMLCtlsLEDemo.pucEventList evlOLE
- Height = 2175
- Left = 225
- TabIndex = 7
- Top = 3915
- Width = 3930
- _ExtentX = 6932
- _ExtentY = 3836
- ExitVisible = -1 'True
- End
- Begin VB.TextBox txtDrop
- Height = 1950
- Left = 4410
- MultiLine = -1 'True
- OLEDragMode = 1 'Automatic
- OLEDropMode = 2 'Automatic
- ScrollBars = 2 'Vertical
- TabIndex = 8
- Text = "OLEDragAndDrop.frx":014A
- Top = 4095
- Width = 2400
- End
- Begin VB.CommandButton cmdDrag
- Caption = "Start Drag"
- Height = 330
- Left = 2520
- TabIndex = 6
- Top = 3420
- Width = 1140
- End
- Begin VB.Frame Frame1
- Caption = "Allowed Drag Effects:"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1095
- Left = 180
- TabIndex = 3
- Top = 2655
- Width = 2220
- Begin VB.CheckBox chkMove
- Caption = "Move"
- Height = 285
- Left = 270
- TabIndex = 5
- Top = 630
- Value = 1 'Checked
- Width = 1140
- End
- Begin VB.CheckBox chkCopy
- Caption = "Copy"
- Height = 285
- Left = 270
- TabIndex = 4
- Top = 315
- Value = 1 'Checked
- Width = 1140
- End
- End
- Begin VB.ComboBox cboOLEDropMode
- Height = 315
- ItemData = "OLEDragAndDrop.frx":022E
- Left = 180
- List = "OLEDragAndDrop.frx":0238
- Style = 2 'Dropdown List
- TabIndex = 2
- Top = 2205
- Width = 2265
- End
- Begin HTMLCtlsLE.HTMLLabel pucSimpleTip1
- Height = 825
- Left = 180
- TabIndex = 0
- Top = 945
- Width = 6630
- _ExtentX = 11695
- _ExtentY = 1455
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BorderStyle = 12
- BackStyle = 0
- BackColor = -2147483624
- ForeColor = -2147483625
- Text = $"OLEDragAndDrop.frx":024A
- End
- Begin HTMLCtlsLE.HTMLLabel hbxDemo
- Height = 1725
- Left = 3915
- TabIndex = 9
- Top = 2070
- Width = 2895
- _ExtentX = 5106
- _ExtentY = 3043
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Text = "Welcome to the <b>HTMLLabel</b> OLE Drag and Drop Demonstration."
- End
- Begin HTMLCtlsLEDemo.pucLogoPane pucLogoPane1
- Align = 1 'Align Top
- Height = 750
- Left = 0
- Top = 0
- Width = 7035
- _ExtentX = 12409
- _ExtentY = 1323
- Picture = "OLEDragAndDrop.frx":02FF
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "OLEDropMode:"
- Height = 195
- Left = 180
- TabIndex = 1
- Top = 1980
- Width = 1080
- End
- Attribute VB_Name = "frmOLEDragAndDrop"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub cboOLEDropMode_Click()
- hbxDemo.OLEDropMode = cboOLEDropMode.ListIndex
- End Sub
- Private Sub cmdDrag_Click()
- hbxDemo.OLEDrag
- End Sub
- Private Sub evlOLE_ExitClicked()
- Unload Me
- End Sub
- Private Sub hbxDemo_OLECompleteDrag(Effect As Long)
- evlOLE.Add "OLECompleteDrag", Effect
- End Sub
- Private Sub hbxDemo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
- evlOLE.Add "OLEDragDrop", "{DATA}", Effect, Button, Shift, X, Y
- If Data.GetFormat(vbCFText) Then
- hbxDemo.Text = Data.GetData(vbCFText)
- End If
- End Sub
- Private Sub hbxDemo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
- evlOLE.Add "OLEDragOver", "{DATA}", Effect, Button, Shift, X, Y, State
- End Sub
- Private Sub hbxDemo_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
- evlOLE.Add "OLEGiveFeedback", Effect, DefaultCursors
- End Sub
- Private Sub hbxDemo_OLESetData(Data As DataObject, DataFormat As Integer)
- evlOLE.Add "OLESetData", "{DATA}", DataFormat
- End Sub
- Private Sub hbxDemo_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
- Data.SetData "Ariad Software's <b>HTMLLabel</b> control.", vbCFText
- If chkCopy Then
- AllowedEffects = AllowedEffects Or vbDropEffectCopy
- End If
- If chkMove Then
- AllowedEffects = AllowedEffects Or vbDropEffectMove
- End If
- evlOLE.Add "OLEStartDrag", "{DATA}", AllowedEffects
- End Sub
- Private Sub Form_Load()
- cboOLEDropMode.ListIndex = hbxDemo.OLEDropMode
- End Sub
-