15914_zh-TW

liliconcom

通過腳本打開顏色選擇窗口/使用Windows choosecolor dll<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

我想通過腳本打開JMP顏色選擇窗口。應返回用戶選擇的顏色（RGB值）。

所以我想通過腳本打開這些窗口：

這可能嗎？到目前為止，我沒有找到辦法（使用JMP 12.1）。

所以我認為你可以使用Windows DLL。我的問題是我不知道如何使用dll ...

使用JMP腳本指南和語法參考書以及下面提到的Internet頁面，我創建了以下代碼：

/*user32 = Load Dll( "User32" );user32 << DeclareFunction(    "FindWindowA",    Convention( STDCALL ),    Alias( "FindWindow2" ),    Arg( UInt32, input, "lpClassName" ),    Arg( AnsiString( 200 ), input, "lpCaption" ),    Returns( UIntPtr ));lpCaption = "Script - JMP";hWnd = user32 << FindWindow2( 0, lpCaption );user32 << UnloadDLL();*/dll = LoadDLL("C:\Windows\System32\comdlg32.dll");dll << Declare Function(    "ChooseColorA",    Convention(STDCALL),    Alias("ColorPalette"),    StructArg(        Arg(UInt32, "lStructSize"),        Arg(Int64, "hwndOwner"),        Arg(Int64, "hInstance"),        Arg(UInt32, update, "rgbResult"),        Arg(AnsiString, "lpCustColors"),        Arg(UInt32, "Flags"),        Arg(Int64, "lCustData"),        Arg(Int64, "lpfnHook"),        Arg(AnsiString, "lpTemplateName"),        update    ),    Returns(Int8));selected_color = 5;hwnd = 0;size = 36    ;result = dll << ColorPalette(    size,        // lStructSize    hwnd,        // hwndOwner    0,            // hInstance    selected_color,    // rgbResult    "",            // lpCustColors    2,            // flags;    2 = show all colors    0,            // lCustData    0,            // lpfnHook    ""            // lpTemplateName);show(result);dll << UnloadDLL();

此代碼不起作用，不顯示顏色選擇窗口，但調用ColorPalette函數的結果始終為零。

我認為一個問題是我不知道'lStructSize'的正確值。我嘗試了從1到10000的每個值，沒有任何變化。所以很明顯我的代碼中有更多錯誤（正如我所說，我不知道如何使用dll）。

anybode可以幫忙嗎？

以下是一些（可能有幫助的）鏈接：

https://msdn.microsoft.com/en-us/library/ms646912%28v=vs.85%29.aspx

https://msdn.microsoft.com/en-us/library/ms646829%28v=vs.85%29.aspx#choosing_color

https://msdn.microsoft.com/de-de/library/windows/desktop/ms646830%28v=vs.85%29.aspx

這裡有一些VBA代碼可以在MS Excel中工作（我在互聯網上找到了稍微修改過的代碼）。我試著在JMP中做同樣的事情。

Option ExplicitPrivate Type CHOOSECOLOR    lStructSize As Long    hwndOwner As Long    hInstance As Long    rgbResult As Long    lpCustColors As String    flags As Long    lCustData As Long    lpfnHook As Long    lpTemplateName As StringEnd TypePrivate Declare PtrSafe Function ChooseColorAPI Lib "comdlg32.dll" Alias _"ChooseColorA" (pChoosecolor As CHOOSECOLOR) As LongDim CustomColors() As ByteSub test()    Form_Load        Dim cc As CHOOSECOLOR    Dim Custcolor(16) As Long    Dim lReturn As Long    cc.lStructSize = Len(cc)    'Debug.Print cc.lStructSize    cc.hwndOwner = Application.Hwnd    cc.hwndOwner = 0    cc.hInstance = 0    cc.lpCustColors = StrConv(CustomColors, vbUnicode)    'cc.flags = 0    cc.flags = 2     ' all colors    'cc.flags = CC_FULLOPEN    lReturn = ChooseColorAPI(cc)    If lReturn <> 0 Then        Dim Farbe, Rot, Gruen, Blau As Long        Farbe = cc.rgbResult        Rot = Farbe Mod 256        Farbe = (Farbe - Rot) / 256        Gruen = Farbe Mod 256        Farbe = (Farbe - Gruen) / 256        Blau = Farbe Mod 256        MsgBox "Color: " & cc.rgbResult & vbNewLine & "Rot: " & Rot & vbNewLine & "Grün: " & Gruen & vbNewLine & "Blau: " & Blau        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)    Else        MsgBox "User chose the Cancel Button"    End IfEnd SubSub Form_Load()    ReDim CustomColors(0 To 16 * 4 - 1) As Byte    Dim i As Integer        For i = LBound(CustomColors) To UBound(CustomColors)        CustomColors(i) = 0    Next iEnd Sub

Re：用腳本打開顏色選擇窗口/使用Windows selectcolor dll

我有同樣的要求。 謝謝你的示例代碼。 我修改了它並通過了JMP 12中的測試。

這是我的劇本 

ChooseColor = Function( {intColor, flags=3},
 {Default Local},

 If( Host is( Windows ),
  dll = Load DLL("C:/Windows/System32/Comdlg32.dll",  Quiet );
  dll << Declare Function( "ChooseColorW", Convention(STDCALL), Alias("PickColor"),
   StructArg(
    Arg(Int64,  "lStructSize"),
    Arg(Int64, "hwndOwner"),
    Arg(Int64,  "hInstance"),
    Arg(Int32, "rgbResult"),
    Arg(AnsiString(64), "lpCustColors"),
    Arg(Int64,  "Flags"),
    Arg(Int64, "lCustData"),
    Arg(Int64, "lpfnHook"),
    Arg(UnicodeString, "lpTemplateName"),
    Update,
    "CHOOSECOLOR"
   ),
   Returns(Int32)
  );

  lStructSize = 72;
  hwndOwner = 0;
  
  lstRGB = As List( ( Matrix( Color To RGB(intColor) ) * 255 ) );
  hexRGB = Concat(Substr(Hex(lstRGB[3], "integer"),7,2), Substr(Hex(lstRGB[2], "integer"),7,2), Substr(Hex(lstRGB[1], "integer"), 7,2));
  rgbResult = Hex to Number( hexRGB ); 
  lpCustColors = Repeat(Hex To Char( "FFFFFF00" ), 16);
  lCustData = 0;
  lpfnHook = 0;

  intRc = dll << PickColor(lStructSize, 0, 0, rgbResult, lpCustColors, Flags,0,0,"");

  If(intRC == 0, 
   Return(intColor)
   ,
   hexRGB = Hex(rgbResult, "integer");
   Return( RGB Color( Hex to Number(Substr(hexRGB,7,2)), Hex to Number(Substr(hexRGB,5,2)), Hex to Number(Substr(hexRGB,3,2) ) ) );
  );

  dll << Unload DLL();
 );
);