掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームの右下にグリップを表示するには？ (ID：33094)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やりたいことは、EXCELのアドインで以下のようなツールを作成しようとしています。 セルに長文を入力する時に、ツールを呼び出すと入力支援のエディタが起動して セルに入力したい文字列をそのエディタを使用して入力させようとしています。 上で述べた入力支援のエディタをVBAのフォームで作成し、VBAのテキストボックスで 入力させようとしています。 つまり、すべてVBAで記述したいのです。 そこで調べた結果フォームのサイズ変更をさせるには、以下のコードで可能だと分かりました。 Private Sub UserForm_Initialize() Dim hwnd As Long Dim lngOffset As Long hwnd = FindWindow("ThunderDFrame", Me.Caption) lngOffset = GetWindowLong(hwnd, GWL_STYLE) Call SetWindowLong(hwnd, GWL_STYLE, lngOffset Xor WS_THICKFRAME Xor &H30000) End Sub その延長で、SetWindowLong()関数の第3引数に何らかのスタイルを渡すと、グリップが出たりは しないかなぁ？とか思ったのですが。 やりたかったのはこんな感じです http://www.geocities.jp/teamhasebe/download/compnent/thsizgrp/index.htm サイトのソースを見るかぎり、無理そうです。。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.