建築フォーラム(farchi)

2026年9月11日(金) 20:27 JST

Win11でのオートメーション

新しく書き込む

投稿者:

{moods}

コード

文字色文字サイズタグを閉じる

Forum BBCode Help

BBCode	Effect
[b]bolded text[/b]	bolded text
[i]italicized text[/i]	italicized text
[u]underlined text[/u]	underlined text
[s]strikethrough text[/s]	strikethrough text
[img]http://www.site.com/images/forum.png[/img] OR [img h=65 w=50]http://www.site.com/images/forum.png[/img]
[url=https://www.farchi.jp]建築フォーラム(farchi)[/url]	建築フォーラム(farchi)
[quote]quoted text[/quote]	To quote: quoted text
[size=15]Your Text[/size] "12" is usually standard on message boards. Usually measured in pixels (px).	Your Text
[color=red]Red Text[/color] OR [color=#FF0000]Red Text[/color] Can use many different color names or hex codes.	Red Text
[list] []List item 1 []List item 2 [/list] OR [list=1] []List item 1 []List item 2 [/list]	List item 1 List item 2 List item 1 List item 2
[code]monospaced text[/code]	monospaced text
[code=XYX]formatted code[/code] Where XYZ can be any of the following: c css html4strict java javascript perl php plain python	formatted code
To enter a backslash (\) in your post, use \\\\	\

件名

[QUOTE][u]Quote by: ゲストユーザー[/u][p]Windows 11 Pro　25H2
BeDraw7.79の環境です。

どこかのアップデートが原因だと思うのですが、
今まで出来ていたオートメーションの表示がおかしくなっています。
特に縦線。

例えばVBAで
     Dim BeDraw As Object
     Dim n As Integer
     Dim ex As Double
   （略）
     BeDraw.SetVisible 1
　（略）   
     BeDraw.SetScale 1, 1
     BeDraw.SetOrigin 0
    
     ex = 10
     For n = 1 To 5
     　BeDraw.AddLine ex, -10, ex, -20
     　MsgBox ex
     　ex = ex + 30
     Next
　（略）
MsgBox exの値は0（ゼロ）が5回表示されます。
----------------------------------------
    For n = 1 To 5
    　BeDraw.AddLine ex*1, -10, ex*1, -20   ←exに×１をしている。
    　MsgBox ex
    　ex = ex + 30
    Next
MsgBox exの値は10,40,70,100,130となります。
（これが望む状態）
-----------------------------------------
原因はわからないのですが、変数に×1をすると今までと同じ状態になります。
また、BeDraw.AddLineの行を消しても10,40,70,100,130となります。

簡単なVBAは変数に×１を付加お疲れ様ですすることで対応はできるのですが、
複雑なものは不具合箇所を探すのに時間を要します。

また、私作成の測量座標管理にも同じ原因と思われる不具合が生じています。
こちらはDelphi4～5で作成した、かなり古いソフトで現在の環境では動かないコンポーネントも多数使用しており、現実的にコードの修正は不可能な状態です。

今まで問題なかったものが不具合が出ていますのでWindowsのアップデータが原因だと思うのですが、
最新の状態を保ったまま、Windowsの設定で回避できる方法があるでしょうか？
それかBeDrawのオートメーション側で対応可能であれば、ありがたいのですが。

前述のとおりかなり古いソフトなので、いつかこんな日が来るんじゃないかと思ってはいました。
緊急的な措置として仮想環境のWinXPで現状は対応しています。
半分諦めてはいますが、手間が増えますので、なんとかならいか思案しています。

思い当たることがあれば教えてください。
よろしくお願いいたします。

-
[/p][/QUOTE]

検索

掲示板メニュー

ユーザー機能

Google　ad

建築フォーラムメニュー

コンテンツ

イベント

記事カテゴリ

RSS Feeds