時間がないのでヒントじゃなく答えでゴメンナサイ。 FormにPictureBoxを貼り付けて、以下のロジックを コピペして下さい。 Formの名称はForm1、PictureBoxの名称はPicture1です この掲示板、インデントが外れちゃうので、ソースの インデントはご自分でして下さい。 PictureBoxをクリックすると…こんな感じでしょうか? Private Sub Picture1_Click() Dim strWork As String Dim lngMargin As Long Dim lngTextWidth As Long strWork = "ああ" lngMargin = 30 '中心からの距離(Pixels) Form1.ScaleMode = vbPixels With Picture1 .ScaleMode = vbPixels .AutoRedraw =
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) MSFlexGridセルのマージ(VB6.0) [No.27の個別表示] サンプル投稿用掲示板 VB2005 ~ 用トップページ VB6.0 用 トップページ 日時: 2007/07/15 20:40 名前: 花ちゃん *********************************************************************************** * カテゴリー:[グリッド関係][][] * * キーワード:MSHFlexGrid,フレックスグリッド,セルの連結,セルのMerge,, * ****************
#2です。 デバッグはどうおこなっていますか?MouseRowはデバッグ中にマウスが 動くと答えが変わったりするので。 私の方ではMsFlexGridをFormに貼り付けてテストしたところ、 うまく切り抜けてるようです。 以下に貼り付けますので参考までに。 あとMouseRowについてはヘルプもみて、どんな値が返るのか理解してくださいね。 (私の環境 WindowsXP VB6SP2) Private Sub Form_Load() With MSFlexGrid1 .Rows = 10 .Cols = 10 .FixedCols = 2 .FixedRows = 2 End With End Sub Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く