|
XDlgSelectLabel
(XDLGS32)
Deklaration
VB 6.0
Function XDlgSelectLabel (ByVal Rows As Integer, ByVal Cols
As Integer, ByVal StartRow As Integer, ByVal StartCol As Integer)
As Integer
Deklaration VB.NET
Function XDlgSelectLabel (ByVal Rows As Short, ByVal Cols As
Short, ByVal StartRow As Short, ByVal StartCol As Short) As Integer
Beskrivning
Denna funktion öppnar upp en dialogruta där användaren kan välja
en startetikett i samband med utskrift av etiketter. Funktionen
returnerar ett etikettnummer som specificerar var på etikettarket
som användaren vill påbörja sin utskrift. Följande inparametrar
används:
. |
| Rows |
Antal etikettrader på
etikettarket. |
| Cols |
Antal etikettkolumner
på etikettarket. |
| StartRow |
Startrad (första raden
har värdet 1). |
| StartCol |
Startkolumn (första
kolumnen har värdet 1). |
.
Innan denna funktion anropas
måste XDlgSelectLabelInit eller
XDlgSelectLabelDefInit anropas
först. Dessa funktionerna sätter texter och färger för dialogrutan.
Se dessa för mer information.
. |
Returvärden
Funktionen returnerar etikettnumret (1 och uppåt) eller -1 om
användaren tryckte på Avbryt eller något fel uppstod.
. |
Se även
XDlgSelectLabelInit,
XDlgSelectLabelDefInit,
XDlgSetLanguage |
Exempel
Följande exempel öppnar en etikettväljardialogruta
enligt bilden nedan med 8 rader och 3 kolumner. Startrad och startkolumn
sätts till 1.
Const OK = 1
Dim EtikettNr As Integer
If XDlgSelectLabelDefInit() = OK Then
EtikettNr = XDlgSelectLabel(8, 3, 1, 1)
End If
|
