ab.com コミュニティ

コード: 全て選択

>         moldx = x                   '前のマウス位置保存 
>         moldy = y 
>     End If 
> ''  moldx = x                       '前のマウス位置保存 
> ''  moldy = y 
> End Sub 
> 

コード: 全て選択

        moldx = x                   '前のマウス位置保存 
        moldy = y 
    End If 
''  moldx = x                       '前のマウス位置保存 
''  moldy = y 
End Sub 

コード: 全て選択

 
>     If MsgDisp<>0 Then Exit Sub  '実行中は処理をスキップする
>     MsgDisp=1
> 
>        '既存の命令
> 
>     MsgDisp=0
> 

コード: 全て選択

Dim MsgDisp=0 As Long
Sub MainWnd_MouseMove(flags As Long, x As Long, y As Long)
    Dim ms1x As String
    Dim ms1y As String
    Dim ms2x As String
    Dim ms2y As String

    If MsgDisp<>0 Then Exit Sub  '実行中は処理をスキップする
    MsgDisp=1

       '既存の命令

    MsgDisp=0
End Sub

コード: 全て選択

 Function Double_To_String(Dbl As Double, cnt As Long, 
                           dot As Integer) As BytePtr 
     Dim buffer[255] As Byte 
     Dim buf         As BytePtr 
     Dim buf_hi      As String 
     Dim buf_lo      As String 
     Dim dec         As Long 
     Dim sin         As Long
 
     Dim dec_b       As Long　　'これが抜けていました。

コード: 全て選択

 Dim fontname = "ＭＳ ゴシック" As BytePtr 

コード: 全て選択

 '倍制度浮動小数点に符号と小数点を付け桁数を指定して文字列で返す
                  'Dbl=変換数値   cnt=桁       dot=小数点以下(５以下）
 Function Double_To_String(Dbl As Double, cnt As Long,
                           dot As Integer) As BytePtr
     Dim buffer[255] As Byte
     Dim buf         As BytePtr
     Dim buf_hi      As String
     Dim buf_lo      As String
     Dim dec         As Long
     Dim sin         As Long

     If cnt > 15 Then
         Double_To_String = "Error-Over15"
         Exit Function
     End If
     buf = _ecvt(Dbl, cnt, dec, sin)   '倍制度浮動小数点を文字列に変換
     dec_b=dec
     If dec_b > 0 Then                 '小数点位置
         If sin = 1 Then               '符号処理
             lstrcpy(buffer, "-")      '符号（-）を付ける
         Else
             lstrcpy(buffer, " ")      '符号無し
         End If
         buf_hi = Left$(buf,dec_b)     '小数点から上位を取得
         lstrcat(buffer, buf_hi)       '小数点から上位を表示
         lstrcat(buffer, ".")          '小数点を追加
         buf_lo = Mid$(buf, dec_b+1, dot)'元のバッファーの小数点以下
         lstrcat(buffer, buf_lo)
     Else
         If sin = 1 Then               '符号処理
             lstrcpy(buffer, "-")      '符号（-）を付ける
         Else
             lstrcpy(buffer, " ")      '符号無し
         End If
         lstrcat(buffer, "0.")
         If dot > 5 Then dot=5

         Select Case (dot)               '小数点以下数
             Case 1
                 If dec_b = 0 Then
                     buf_lo = Left$(buf,1)
                 End If
             Case 2
                 If dec_b = 0 Then
                     buf_lo = Left$(buf,2)
                 End If
                 If dec_b = -1 Then
                     lstrcat(buffer, "0")
                     buf_lo = Left$(buf,1)
                 End If
             Case 3
                 If dec_b = 0 Then
                     buf_lo = Left$(buf,3)
                 End If
                 If dec_b = -1 Then
                     lstrcat(buffer, "0")
                     buf_lo = Left$(buf,2)
                 End If
                 If dec_b = -2 Then
                     lstrcat(buffer, "00")
                     buf_lo = Left$(buf,1)
                 End If
             Case 4
                 If dec_b = 0 Then
                     buf_lo = Left$(buf,4)
                 End If
                 If dec_b = -1 Then
                     lstrcat(buffer, "0")
                     buf_lo = Left$(buf,3)
                 End If
                 If dec_b = -2 Then
                     lstrcat(buffer, "00")
                     buf_lo = Left$(buf,2)
                 End If
                 If dec_b = -3 Then
                     lstrcat(buffer, "000")
                     buf_lo = Left$(buf,1)
                 End If
             Case 5
                 If dec_b = 0 Then
                     buf_lo = Left$(buf,5)
                 End If
                 If dec_b = -1 Then
                     lstrcat(buffer, "0")
                     buf_lo = Left$(buf,4)
                 End If
                 If dec_b = -2 Then
                     lstrcat(buffer, "00")
                     buf_lo = Left$(buf,3)
                 End If
                 If dec_b = -3 Then
                     lstrcat(buffer, "000")
                     buf_lo = Left$(buf,2)
                 End If
                 If dec_b = -4 Then
                     lstrcat(buffer, "0000")
                     buf_lo = Left$(buf,1)
                 End If
         End Select
         lstrcat(buffer, buf_lo)
     End If
     Double_To_String = buffer
 End Function

コード: 全て選択

      
Dim fontname = "ＭＳ ゴシック" As BytePtr       

コード: 全て選択

 Dim fontname = "ＭＳ ゴシック" As BytePtr 

コード: 全て選択

 Dim mouse_1X As Double
 Dim mouse_1Y As Double
 Dim mouse_2X As Double
 Dim mouse_2Y As Double
 Dim fontname = "ＭＳ ゴシック" As BytePtr
 Dim moldx    As Single
 Dim moldy    As Single
 '--------------------------------------------------------------------
 Sub MainWnd_MouseMove(flags As Long, x As Long, y As Long)
     Dim ms1x As String
     Dim ms1y As String
     Dim ms2x As String
     Dim ms2y As String

     If kind_b >= 1 Then             '描画時
         Mouse_Near_Blt(moldx, moldy)'旧ＸＹ位置にマウスの近くに
                                      貼り付け（位置情報）
         If ms_cnt = 0 Then          '描画前
             ms1x = ms1x + "X="
             ms1x = ms1x + Double_To_String(mouse_1X, 10, 3)'As BytePtr
             ms1y = ms1y + "Y="
             ms1y = ms1y + Double_To_String(mouse_1Y, 10, 3)
             Text_Dsp(x, y-40,   1, fontname, 12, 0, ms1x)
             Text_Dsp(x, y-27,   1, fontname, 12, 0, ms1y)
         Else                        '描画中
             ms2x = ms2x + "X="
             ms2x = ms2x + Double_To_String(mouse_2X - mouse_1X, 10, 3)
             ms2y = ms2y + "Y="
             ms2y = ms2y + Double_To_String(mouse_2Y - mouse_1Y, 10, 3)
             Text_Dsp(x, y-40,   3, fontname, 12, 0, ms2x)
             Text_Dsp(x, y-27,   3, fontname, 12, 0, ms2y)
         End If
     End If
     moldx = x                       '前のマウス位置保存
     moldy = y
 End Sub