vbdde.bas

来自「labwindows 源码 CVI的 DDE数据交换源代码 这是CVI和VB2」· BAS 代码 · 共 52 行

' This program was adopted from the sample program
' that comes with Visual Basic.
' It's main purpose is to demostrate how one could write
' a Visual Basic program to communicate with a program
' written in CVI via DDE methods

Option Explicit
Global Const NONE = 0

' Clipboard formats
Global Const CF_LINK = &HBF00
Global Const CF_TEXT = 1
Global Const CF_BITMAP = 2
Global Const CF_METAFILE = 3
Global Const CF_DIB = 8

Global Const MODAL = 1

' ErrNum (LinkError)
Global Const WRONG_FORMAT = 1
Global Const DDE_SOURCE_CLOSED = 6
Global Const TOO_MANY_LINKS = 7
Global Const DATA_TRANSFER_FAILED = 8

' MousePointer
Global Const DEFAULT = 0
Global Const HOURGLASS = 11

' LinkMode (forms and controls)
Global Const LINK_SOURCE = 1
Global Const LINK_AUTOMATIC = 1
Global Const LINK_MANUAL = 2

' Run time errors
Global Const NO_APP_RESPONDED = 282
Global Const DDE_REFUSED = 285

' Button parameter masks
Global Const LEFT_BUTTON = 1
Global Const RIGHT_BUTTON = 2

Global Const MB_YESNO = 4
Global Const MB_ICONQUESTION = 32
Global Const IDYES = 6

'Global variable indicating wether ToggleAuto at the
'CVI server end was on

Global gToggleAuto As Integer