smartdocument Depuis exemple Simplesample VB6 (probleme)
2 réponses
Herve cadieu
Bonjour
sur la base de l'example de smartdocument simple sample depuis VB6
je tente et je reussi à afficher mes propres controles (3) à la place de
l'objet activeX Calendar qui est proposé dans l'exemple initial
Un controle de style (picture box) qui est en fait VSDRAW7.ocx
un bouton et un combobox
1°) je souhaiterai que le bouton (902) soit enabled=false tant que un item
de la collection du combobox(903) n'est pas selectionné par l'utilisateur
2°) je souhaiterai dessiner des lignes sur le controle VSDRAW lorsque le
bouton (902) affiché en meme temps est clicKé . invoquer donc une methode de
ce controle qui est present sur la Pane.
Voici pour info le code de ma dll VB6
Si vous pouvez m'aidez je vous en remercie par avance
Option Explicit
'IMPLEMENTATION
Implements ISmartDocument
'CONSTANTS
'You need one constant for the schema namespace, one constant for each
'of the schema elements for which you want to provide smart document controls
'and actions, and one constant for the total number of schema elements
'for which there are associated actions.
'Because XML is case-sensitive, the values
'of these constants must be exact in both spelling and case.
'Therefore, if the textBox element is spelled with a
'capital B in the XML schema, you would need to assign the
'value of the cTEXTBOX constant as "cNAMESPACE & #textBox".
'Namespace constant
Const cNAMESPACE As String = "SimpleSample"
'Element constants
Const cTEXTBOX As String = cNAMESPACE & "#textbox"
Const cBUTTON As String = cNAMESPACE & "#commandbutton"
Const cEXAMPLE As String = cNAMESPACE & "#example"
Const cHELP As String = cNAMESPACE & "#help"
Const cRADIO As String = cNAMESPACE & "#radiobutton"
Const cCHECKBOX As String = cNAMESPACE & "#checkbox"
Const cLIST As String = cNAMESPACE & "#listbox"
Const cIMAGE As String = cNAMESPACE & "#image"
Const cDOCFRAG As String = cNAMESPACE & "#documentfragment"
Const cACTIVEX As String = cNAMESPACE & "#activex"
Const cCOMBOBOX As String = cNAMESPACE & "#combobox"
'Number of types (or element constants)
Const cTYPES As Integer = 11
'To specify that a control is a default control and applies to all elements
'in a smart document, you can use #actionPertainsToEntireSchema for the
'element name (#xmlelementname as shown above).
'Constants
Private strPath As String
Private WithEvents vsdrawplug As vsdraw
Private strApp As String
Private Sub ISmartDocument_SmartDocInitialize(ByVal ApplicationName As
String, ByVal Document As Object, ByVal SolutionPath As String, ByVal
SolutionRegKeyRoot As String)
Private Property Get ISmartDocument_SmartDocXmlTypeCount() As Long
ISmartDocument_SmartDocXmlTypeCount = cTYPES
End Property
Private Property Get ISmartDocument_SmartDocXmlTypeName( _
ByVal XMLTypeID As Long) As String
Select Case XMLTypeID
Case 1
ISmartDocument_SmartDocXmlTypeName = cTEXTBOX
Case 2
ISmartDocument_SmartDocXmlTypeName = cBUTTON
Case 3
ISmartDocument_SmartDocXmlTypeName = cEXAMPLE
Case 4
ISmartDocument_SmartDocXmlTypeName = cHELP
Case 5
ISmartDocument_SmartDocXmlTypeName = cRADIO
Case 6
ISmartDocument_SmartDocXmlTypeName = cCHECKBOX
Case 7
ISmartDocument_SmartDocXmlTypeName = cLIST
Case 8
ISmartDocument_SmartDocXmlTypeName = cIMAGE
Case 9
ISmartDocument_SmartDocXmlTypeName = cDOCFRAG
Case 10
ISmartDocument_SmartDocXmlTypeName = cACTIVEX
Case 11
ISmartDocument_SmartDocXmlTypeName = cCOMBOBOX
Case Else
End Select
End Property
Private Property Get ISmartDocument_SmartDocXmlTypeCaption( _
ByVal XMLTypeID As Long, ByVal LocaleID As Long) As String
Select Case XMLTypeID
Case 1
ISmartDocument_SmartDocXmlTypeCaption = "Textbox"
Case 2
ISmartDocument_SmartDocXmlTypeCaption = "Click"
Case 3
ISmartDocument_SmartDocXmlTypeCaption = "Global Help text"
Case 4
ISmartDocument_SmartDocXmlTypeCaption = "Help text"
Case 5
ISmartDocument_SmartDocXmlTypeCaption = "Radio buttons"
Case 6
ISmartDocument_SmartDocXmlTypeCaption = "Checkboxes"
Case 7
ISmartDocument_SmartDocXmlTypeCaption = "List box"
Case 8
ISmartDocument_SmartDocXmlTypeCaption = "Image"
Case 9
ISmartDocument_SmartDocXmlTypeCaption = _
"Document Fragments"
Case 10
ISmartDocument_SmartDocXmlTypeCaption = _
"Grapho-Lock Signature Procedure"
Case 11
ISmartDocument_SmartDocXmlTypeCaption = "ComboBox"
Case Else
End Select
End Property
Private Property Get ISmartDocument_ControlCount( _
ByVal XMLTypeName As String) As Long
Select Case XMLTypeName
Case cTEXTBOX
ISmartDocument_ControlCount = 1
Case cBUTTON
ISmartDocument_ControlCount = 1
Case cEXAMPLE
ISmartDocument_ControlCount = 4
Case cHELP
ISmartDocument_ControlCount = 1
Case cRADIO
ISmartDocument_ControlCount = 1
Case cCHECKBOX
ISmartDocument_ControlCount = 2
Case cLIST
ISmartDocument_ControlCount = 1
Case cIMAGE
ISmartDocument_ControlCount = 1
Case cDOCFRAG
ISmartDocument_ControlCount = 2
Case cACTIVEX
ISmartDocument_ControlCount = 3 'j'ai modifié ici de 1 à 3
Case cCOMBOBOX
ISmartDocument_ControlCount = 1
Case Else
End Select
End Property
'The ControlID for the first control you add will be 1.
'For more information on specifying the ControlID, see the ControlID reference
'topic in the References section of this SDK.
Private Property Get ISmartDocument_ControlID( _
ByVal XMLTypeName As String, _
ByVal ControlIndex As Long) As Long
Select Case XMLTypeName
Case cTEXTBOX
ISmartDocument_ControlID = ControlIndex
Case cBUTTON
ISmartDocument_ControlID = ControlIndex + 100
Case cEXAMPLE
ISmartDocument_ControlID = ControlIndex + 200
Case cHELP
ISmartDocument_ControlID = ControlIndex + 300
Case cRADIO
ISmartDocument_ControlID = ControlIndex + 400
Case cCHECKBOX
ISmartDocument_ControlID = ControlIndex + 500
Case cLIST
ISmartDocument_ControlID = ControlIndex + 600
Case cIMAGE
ISmartDocument_ControlID = ControlIndex + 700
Case cDOCFRAG
ISmartDocument_ControlID = ControlIndex + 800
Case cACTIVEX
ISmartDocument_ControlID = ControlIndex + 900
Case cCOMBOBOX
ISmartDocument_ControlID = ControlIndex + 1000
Case Else
End Select
End Property
Private Property Get ISmartDocument_ControlNameFromID( _
ByVal ControlID As Long) As String
Select Case ControlID
Case 901
ISmartDocument_ControlNameFromID = "Vsdraw7"
Case Else
ISmartDocument_ControlNameFromID = cNAMESPACE & ControlID
End Select
End Property
Private Property Get ISmartDocument_ControlCaptionFromID( _
ByVal ControlID As Long, ByVal ApplicationName As String, _
ByVal LocaleID As Long, ByVal Text As String, _
ByVal Xml As String, ByVal Target As Object) As String
Select Case ControlID
Case 1
ISmartDocument_ControlCaptionFromID = _
"Please enter your name:"
Case 101
ISmartDocument_ControlCaptionFromID = _
"Test button"
Case 201
ISmartDocument_ControlCaptionFromID = _
"Help text applies to all elements."
Case 202
ISmartDocument_ControlCaptionFromID = _
"This is a label. Below you will find a " & _
"separator line and a hyperlink to the " & _
"Grapho-Lock home page."
Case 203
ISmartDocument_ControlCaptionFromID = _
"This text doesn't show"
Case 204
ISmartDocument_ControlCaptionFromID = _
"Grapho-Lock.com"
Case 301
ISmartDocument_ControlCaptionFromID = _
"Help text applies only to the help element."
Case 401
ISmartDocument_ControlCaptionFromID = "Pick your favorite color"
Case 501
If ApplicationName = "Word.Application.11" Then
ISmartDocument_ControlCaptionFromID = _
"Show/Hide paragraph marks."
ElseIf ApplicationName = "Excel.Application.11" Then
ISmartDocument_ControlCaptionFromID = _
"Show/Hide status bar"
End If
Case 502
If ApplicationName = "Word.Application.11" Then
ISmartDocument_ControlCaptionFromID = _
"Show/Hide XML tags."
ElseIf ApplicationName = "Excel.Application.11" Then
ISmartDocument_ControlCaptionFromID = _
"Show/Hide active list border"
End If
Case 601
ISmartDocument_ControlCaptionFromID = _
"Select your favorite baseball team."
Case 701
ISmartDocument_ControlCaptionFromID = _
"Click letter to type text."
Case 702
ISmartDocument_ControlCaptionFromID = _
"Click image to insert into document."
Case 801
ISmartDocument_ControlCaptionFromID = _
"SimpleSample text"
Case 802
ISmartDocument_ControlCaptionFromID = _
"Gettysburg Address"
Case 901
ISmartDocument_ControlCaptionFromID = _
"{6871D5DC-1A9F-11D4-9A1F-F7280EC6F828}"
Case 902
ISmartDocument_ControlCaptionFromID = _
"Signature"
Case 903
ISmartDocument_ControlCaptionFromID = _
"Registered Users template database."
Case Else
End Select
End Property
Private Property Get ISmartDocument_ControlTypeFromID( _
ByVal ControlID As Long, _
ByVal ApplicationName As String, _
ByVal LocaleID As Long) As SmartTagLib.C_TYPE
Select Case ControlID
Case 1
ISmartDocument_ControlTypeFromID = C_TYPE_TEXTBOX
Case 101
ISmartDocument_ControlTypeFromID = C_TYPE_BUTTON
Case 201
ISmartDocument_ControlTypeFromID = C_TYPE_HELP
Case 202
ISmartDocument_ControlTypeFromID = C_TYPE_LABEL
Case 203
ISmartDocument_ControlTypeFromID = C_TYPE_SEPARATOR
Case 204
ISmartDocument_ControlTypeFromID = C_TYPE_LINK
Case 301
ISmartDocument_ControlTypeFromID = C_TYPE_HELPURL
Case 401
ISmartDocument_ControlTypeFromID = C_TYPE_RADIOGROUP
Case 501, 502
ISmartDocument_ControlTypeFromID = C_TYPE_CHECKBOX
Case 601
ISmartDocument_ControlTypeFromID = C_TYPE_LISTBOX
Case 701, 702
ISmartDocument_ControlTypeFromID = C_TYPE_IMAGE
Case 801
ISmartDocument_ControlTypeFromID = C_TYPE_DOCUMENTFRAGMENT
Case 802
ISmartDocument_ControlTypeFromID = _
C_TYPE_DOCUMENTFRAGMENTURL
Case 901
ISmartDocument_ControlTypeFromID = C_TYPE_ACTIVEX
Case 902
ISmartDocument_ControlTypeFromID = C_TYPE_BUTTON
Case 903
ISmartDocument_ControlTypeFromID = C_TYPE_COMBO
Case Else
End Select
End Property
Private Sub ISmartDocument_PopulateActiveXProps(ByVal ControlID As Long,
ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, ByVal ActiveXPropBag As
SmartTagLib.ISmartDocProperties)
'here you can define height and width of the control
Select Case ControlID
Case 901
Props.Write Key:="W", Value:="250"
Props.Write Key:="H", Value:="125"
'ActiveXPropBag.Write Key:="BackColor", Value:=vbBlue
End Select
End Sub
Private Sub ISmartDocument_PopulateCheckbox(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, Checked As Boolean)
Select Case ControlID
Case 501, 502
Checked = True
End Select
End Sub
Private Sub ISmartDocument_PopulateDocumentFragment(ByVal ControlID As Long,
ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, DocumentFragment As String)
Select Case ControlID
Case 801
DocumentFragment = "The quick red " & _
"fox jumped over the lazy brown dog."
Case 802
DocumentFragment = strPath & "gettysburgaddress.xml"
End Select
End Sub
Private Sub ISmartDocument_PopulateHelpContent(ByVal ControlID As Long,
ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, Content As String)
Select Case ControlID
Case 201
Content = "<html><body><p>This is the SimpleSample " & _
"Smart Document.</p></body></html>"
Case 301
Content = strPath & "help.htm"
End Select
End Sub
Private Sub ISmartDocument_PopulateImage(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, ImageSrc As String)
Select Case ControlID
Case 701
ImageSrc = strPath & "simplesample.bmp" 'ImageSrc = strPath &
"alphabet.gif"
Case 702
ImageSrc = strPath & "simplesample.bmp"
End Select
End Sub
Private Sub ISmartDocument_PopulateListOrComboContent(ByVal ControlID As
Long, ByVal ApplicationName As String, ByVal LocaleID As Long, ByVal Text As
String, ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, List() As String, count As Long,
initialselected As Long)
Select Case ControlID
Case 601
count = 5
ReDim List(1 To 5) As String
List(1) = "Mariners"
List(2) = "Mets"
List(3) = "Dodgers"
List(4) = "Red Sox"
List(5) = "Orioles"
initialselected = -1
Case 903
count = 8
ReDim List(1 To 8) As String
List(1) = "Hervé Cadieu"
List(2) = "Laurent Cadieu"
List(3) = "Philippe Boulade"
List(4) = "Henri Nieuviarts"
List(5) = "Hervé Margotat"
List(6) = "SmartCard Store"
List(7) = "LDAP Store"
List(8) = "Free USER (Not Registered)"
initialselected = 1
End Select
End Sub
Private Sub ISmartDocument_PopulateOther(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties)
Select Case ControlID
'Case 902
' BackColor = vbBlue
End Select
End Sub
Private Sub ISmartDocument_PopulateRadioGroup(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal LocaleID As Long, ByVal Text As String,
ByVal Xml As String, ByVal Target As Object, ByVal Props As
SmartTagLib.ISmartDocProperties, List() As String, count As Long,
initialselected As Long)
Select Case ControlID
Case 401
count = 5
ReDim List(1 To count) As String
List(1) = "Red"
List(2) = "Blue"
List(3) = "Yellow"
List(4) = "Purple"
List(5) = "Green"
initialselected = -1
End Select
End Sub
Private Sub ISmartDocument_PopulateTextboxContent( _
ByVal ControlID As Long, ByVal ApplicationName As String, _
ByVal LocaleID As Long, ByVal Text As String, _
ByVal Xml As String, ByVal Target As Object, _
ByVal Props As SmartTagLib.ISmartDocProperties, Value As String)
'This subroutine is intentionally left empty.
End Sub
Private Sub ISmartDocument_ImageClick(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal Target As Object, ByVal Text As String,
ByVal Xml As String, ByVal LocaleID As Long, ByVal XCoordinate As Long, ByVal
YCoordinate As Long)
Dim strText As String
Dim strImage As String
Dim objWdRange As Word.Range
Dim objXlRange As Excel.Range
Select Case ControlID
Case 700
Select Case XCoordinate
Case 0 To 16
Select Case YCoordinate
Case 0 To 20
strText = strText & "A"
Case 21 To 40
strText = strText & "G"
Case 41 To 60
strText = strText & "M"
Case 61 To 80
strText = strText & "S"
End Select
Case 17 To 32
Select Case YCoordinate
Case 0 To 20
strText = strText & "B"
Case 21 To 40
strText = strText & "H"
Case 41 To 60
strText = strText & "N"
Case 61 To 80
strText = strText & "T"
End Select
Case 33 To 48
Select Case YCoordinate
Case 0 To 20
strText = strText & "C"
Case 21 To 40
strText = strText & "I"
Case 41 To 60
strText = strText & "O"
Case 61 To 80
strText = strText & "U"
Case 81 To 100
strText = strText & "Y"
End Select
Case 49 To 64
Select Case YCoordinate
Case 0 To 20
strText = strText & "D"
Case 21 To 40
strText = strText & "J"
Case 41 To 60
strText = strText & "P"
Case 61 To 80
strText = strText & "V"
Case 81 To 100
strText = strText & "Z"
End Select
Case 65 To 80
Select Case YCoordinate
Case 0 To 20
strText = strText & "E"
Case 21 To 40
strText = strText & "K"
Case 41 To 60
strText = strText & "Q"
Case 61 To 80
strText = strText & "W"
End Select
Case 81 To 96
Select Case YCoordinate
Case 0 To 20
strText = strText & "F"
Case 21 To 40
strText = strText & "L"
Case 41 To 60
strText = strText & "R"
Case 61 To 80
strText = strText & "X"
End Select
End Select
If ApplicationName = "Word.Application.11" Then
Set objWdRange = Target.XMLNodes(1).Range
objWdRange.Text = strText
Else
Set objXlRange = Target
objXlRange.Value = strText
End If
Case 701
strImage = strPath & "simplesample.bmp"
If ApplicationName = "Word.Application.11" Then
Set objWdRange = Target.XMLNodes(1).Range
objXlRange.Select
Target.Parent.Pictures.Insert(strImage).Select
End If
strText = ""
End Select
End Sub
Private Sub ISmartDocument_InvokeControl(ByVal ControlID As Long, ByVal
ApplicationName As String, ByVal Target As Object, ByVal Text As String,
ByVal Xml As String, ByVal LocaleID As Long)
Dim objXML As MSXML2.DOMDocument
Dim objRange As Word.Range
Dim objNav As InternetExplorer
Select Case ControlID
Case 101
MsgBox "This is an example of a button."
Case 204
Set objNav = New SHDocVw.InternetExplorer
objNav.Navigate2
"http://mapage.noos.fr/tontonblog/index_fichiers/frame.htm"
objNav.Visible = True
Case 801
If ApplicationName = "Word.Application.11" Then
Set objRange = Target.XMLNodes(1).Range
objRange.Text = "The quick red fox jumped over the lazy
brown dog."
Set objRange = Nothing
End If
Case 802
If ApplicationName = "Word.Application.11" Then
Set objRange = Target.XMLNodes(1).Range
Set objXML = New MSXML2.DOMDocument50
Set objXML = Nothing
Set objRange = Nothing
End If
Case 901
If ApplicationName = "Word.Application.11" Then
Set objRange = Target.XMLNodes(1).Range
Set objXML = New MSXML2.DOMDocument50
objXML.async = False
Set objXML = Nothing
Set objRange = Nothing
End If
Case 902
If ApplicationName = "Word.Application.11" Then
Set objRange = Target.XMLNodes(1).Range
Set objXML = New MSXML2.DOMDocument50
objXML.async = False
Dim objDoc As Word.Document
Dim objSel As Word.Selection
Dim objWord As Word.SmartTagAction
Set objDoc = ActiveDocument
Set objSel = objDoc.ActiveWindow.Selection
If objSel.XMLParentNode = "activex" Then
Set objWord =
objSel.XMLParentNode.SmartTag.SmartTagActions("vsdraw7")
If objWord.PresentInPane Then
Set vsdrawplug = objWord.ActiveXControl
vsdrawplug.BrushColor = vbRed
vsdrawplug.DrawLine 1, vsdrawplug.ScaleHeight, 1,
vsdrawplug.ScaleWidth
vsdrawplug.BackColor = vbYellow
vsdrawplug.Refresh
End If
End If
'ISmartDocument_InvokeControl(901,"Word.Application.11",
MsgBox "salut ca marche alors", vbInformation, "grapho-lock"
Set objXML = Nothing
Set objRange = Nothing
End If
Case Else
End Select
End Sub
Private Sub ISmartDocument_OnCheckboxChange(ByVal ControlID As Long, ByVal
Target As Object, ByVal Checked As Boolean)
Dim objView As Word.View
Select Case ControlID
Case 501
If Target.Application.Name = "Microsoft Word" Then
Set objView = Word.ActiveWindow.View
objView.ShowAll = Checked
Else
Target.Application.DisplayStatusBar = Checked
End If
Case 502
If Target.Application.Name = "Microsoft Word" Then
Set objView = Word.ActiveWindow.View
objView.ShowXMLMarkup = wdToggle
Else
Target.Application.ActiveWorkbook _
.InactiveListBorderVisible = Checked
End If
End Select
End Sub
Private Sub ISmartDocument_OnListOrComboSelectChange(ByVal ControlID As
Long, ByVal Target As Object, ByVal Selected As Long, ByVal Value As String)
Dim strText As String
Select Case ControlID
Case 601
strText = "My favorite baseball team is " & Value & "."
MsgBox strText
Case 903
strText = "The selected user is " & Value & "."
MsgBox strText, vbInformation, "Grapho-Lock Signature"
End Select
End Sub
Private Sub ISmartDocument_OnRadioGroupSelectChange(ByVal ControlID As Long,
ByVal Target As Object, ByVal Selected As Long, ByVal Value As String)
Dim strText As String
Dim objWdRange As Word.Range
strText = "My favorite color is " & Value & "."
Select Case ControlID
Case 401
If Target.Application.Name = "Microsoft Word" Then
Set objWdRange = Target
objWdRange.XMLNodes(1).Text = strText
Set objWdRange = Nothing
Else
MsgBox strText
End If
End Select
End Sub
'After the user enters something in the text box,
'the SimpleSample smart document displays a message saying "Hello."
Private Sub ISmartDocument_OnTextboxContentChange( _
ByVal ControlID As Long, ByVal Target As Object, _
ByVal Value As String)
If Len(Value) > 0 Then
MsgBox "Hello, " & Value
End If
End Sub
Private Sub ISmartDocument_OnPaneUpdateComplete(ByVal Document As Object)
Dim objDoc As Word.Document
Dim objSel As Word.Selection
Dim objWord As Word.SmartTagAction
Dim objXlCal As Excel.SmartTagAction
If Document.Application.Name = "Microsoft Word" Then
Set objDoc = Document
Set objSel = objDoc.ActiveWindow.Selection
If objSel.XMLParentNode = "activex" Then
Set objWord =
objSel.XMLParentNode.SmartTag.SmartTagActions("vsdraw7")
If objWord.PresentInPane Then
Set vsdrawplug = objWord.ActiveXControl
vsdrawplug.BrushColor = vbRed
vsdrawplug.DrawLine 1, vsdrawplug.ScaleHeight, 1,
vsdrawplug.ScaleWidth
vsdrawplug.BackColor = vbYellow
vsdrawplug.Refresh
End If
End If
Else
Set objXlCal =
Document.ActiveSheet.SmartTags(cACTIVEX).SmartTagActions("vsdraw7")
If objXlCal.PresentInPane Then
Set vsdrawplug = objXlCal.ActiveXControl
vsdrawplug.BackColor = vbGreen
End If
End If
End Sub
'Private Sub SignWnd_Click()
'
' Dim objWd As Word.Application
'
' If InStr(1, strApp, "Word") > 0 Then
' Set objWd = Word.Application
' SignWnd.BackColor = vbGreen
' Dim b As Boolean
' b = MBAcquireSample
' If b = False Then
' MsgBox "False", vbInformation, "Grapho-Lock"
' ElseIf b = True Then
' MsgBox "True", vbInformation, "Grapho-lock"
' End If
' 'objWd.ActiveWindow.Selection.Range.Text = SignWnd.Value
' Set objWd = Nothing
' ElseIf InStr(1, strApp, "Excel") > 0 Then
' 'MsgBox SignWnd.Value
' End If
'
'End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'Herve cadieu' nous a écrit ...
(cut) mais en revanche
J'aime bien le 'mais en revanche' de la fin :-D ))))
Vous avez posté cette question en anglais et en français sur divers NG souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts à éplucher les 800 lignes de votre question, d'autant qu'on a du mal à comprendre où sont les difficultés : mettre un test pour votre première question et utiliser les méthodes de la doc de vsdraw pour la seconde. Si ceci coince, on ne voit pas bien où exactement. Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Bonjour !
'Herve cadieu' nous a écrit ...
(cut)
mais en revanche
J'aime bien le 'mais en revanche' de la fin :-D ))))
Vous avez posté cette question en anglais et en français sur divers NG
souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts
à éplucher les 800 lignes de votre question, d'autant qu'on a du mal
à comprendre où sont les difficultés : mettre un test pour votre
première question et utiliser les méthodes de la doc de vsdraw
pour la seconde. Si ceci coince, on ne voit pas bien où exactement.
Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
J'aime bien le 'mais en revanche' de la fin :-D ))))
Vous avez posté cette question en anglais et en français sur divers NG souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts à éplucher les 800 lignes de votre question, d'autant qu'on a du mal à comprendre où sont les difficultés : mettre un test pour votre première question et utiliser les méthodes de la doc de vsdraw pour la seconde. Si ceci coince, on ne voit pas bien où exactement. Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Clément Marcotte
Bonjour,
Vous avez posté cette question en anglais et en français sur divers NG souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Il a posé sa question en français parce que je l'ai engueulé. Cela va peut-être lui éviter de rejoindre French Télécom comme récipiendaire du prix de la carpette anglaise.
D'autant plus que le VSDRAW en question n'est pas un contrôle de VB6 et n'est pas non plus dans VisualStudio 2003. Il l'a pêché, on ne sait où et il voudrait qu'on lui solutionne son problème. Qu'il communique donc avec celui qui lui a fourni son VSDRAW.
"Anacoluthe" a écrit dans le message de news: O$HMaI%
Bonjour !
'Herve cadieu' nous a écrit ...
(cut) mais en revanche
J'aime bien le 'mais en revanche' de la fin :-D ))))
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts à éplucher les 800 lignes de votre question, d'autant qu'on a du mal à comprendre où sont les difficultés : mettre un test pour votre première question et utiliser les méthodes de la doc de vsdraw pour la seconde. Si ceci coince, on ne voit pas bien où exactement. Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Bonjour,
Vous avez posté cette question en anglais et en français sur divers NG
souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Il a posé sa question en français parce que je l'ai engueulé. Cela va
peut-être lui éviter de rejoindre French Télécom comme récipiendaire du prix
de la carpette anglaise.
D'autant plus que le VSDRAW en question n'est pas un contrôle de VB6 et
n'est pas non plus dans VisualStudio 2003. Il l'a pêché, on ne sait où et il
voudrait qu'on lui solutionne son problème. Qu'il communique donc avec celui
qui lui a fourni son VSDRAW.
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
O$HMaI%23BGHA.140@TK2MSFTNGP12.phx.gbl...
Bonjour !
'Herve cadieu' nous a écrit ...
(cut)
mais en revanche
J'aime bien le 'mais en revanche' de la fin :-D ))))
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts
à éplucher les 800 lignes de votre question, d'autant qu'on a du mal
à comprendre où sont les difficultés : mettre un test pour votre
première question et utiliser les méthodes de la doc de vsdraw
pour la seconde. Si ceci coince, on ne voit pas bien où exactement.
Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
Vous avez posté cette question en anglais et en français sur divers NG souvent plus appropriés d'ailleurs que ce forum généraliste Word.
Il a posé sa question en français parce que je l'ai engueulé. Cela va peut-être lui éviter de rejoindre French Télécom comme récipiendaire du prix de la carpette anglaise.
D'autant plus que le VSDRAW en question n'est pas un contrôle de VB6 et n'est pas non plus dans VisualStudio 2003. Il l'a pêché, on ne sait où et il voudrait qu'on lui solutionne son problème. Qu'il communique donc avec celui qui lui a fourni son VSDRAW.
"Anacoluthe" a écrit dans le message de news: O$HMaI%
Bonjour !
'Herve cadieu' nous a écrit ...
(cut) mais en revanche
J'aime bien le 'mais en revanche' de la fin :-D ))))
Je ne pense pas que vous trouverez beaucoup de contributeurs prêts à éplucher les 800 lignes de votre question, d'autant qu'on a du mal à comprendre où sont les difficultés : mettre un test pour votre première question et utiliser les méthodes de la doc de vsdraw pour la seconde. Si ceci coince, on ne voit pas bien où exactement. Essayez d'expliquer /brièvement/ la nature exacte de votre problème.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
