vbhanatyan の回答履歴

今、WindowsXP上のVB6プログラムを、Windows7上のVB2010プログラムへ変換作業をしています 手順は １．VB2008Expressのアップグレードウィザードを使って、一度VB2008版を造りました 　　その時に、フォームサイズを変えるステートメントが次のように変わりました Imports VB = Microsoft.VisualBasic ・ Me.Width = 16000　→ VB6.TwipsToPixelsX(16000) Me.Height = 12250　→ VB6.TwipsToPixelsY(12250) ２．次にWindows7上のVB2010で上記プログラムを読み込むと. 　 　　　　VB6.TwipsToPixelsX(16000)　のところに波型のアンダーラインが引かれ 　　　　これは「旧形式です」のメッセージが出ました 　そこで、Microsoftのフォームページ(http://go.microsoft.com/fwlin/?linkid=160862')を参考に 下記のように修正しました Imports Microsoft.VisualBasic.Compatibility.VB6 ・ Me.Width = Support.TwipsToPixelsX(16000) Me.Height = Support.TwipsToPixelsY(12250) 　　 　　　と修正しましたが波型アンダーラインは消えませんでした そこで質問ですが 　この波型アンダーラインは無視して良いのか、 　それともまだ使い方が間違っているのか分かりません 　そこのところご教授願えれば幸いです 　　

初めて質問させて頂きます。 VB.net2005を使用しているのですが、 ブレークポイントを設定しても、 「ブレークポイントは現在の設定ではヒットしません。このドキュメントのシンボルが読み込まれません」 と表示され、ブレークポイントが使えません。 ・構成マネージャ→Debug ・クリーン→リビルド ・[元のバージョンと完全に一地するソースファイルを必要とする]をオフ は試したのですが、症状は変わらずです…。 以前は同じプログラムで普通にブレークポイントが使用できていたのですが 久しぶりにコードを編集しようと思ったときに上記のメッセージでデバッグが 出来ません。 「このドキュメントのシンボルが読み込まれません」が何のシンボルか分かれば 対処のヒントが得られると思うのですが…。 何か解決方法はありますでしょうか。

初めて質問させて頂きます。 VB.net2005を使用しているのですが、 ブレークポイントを設定しても、 「ブレークポイントは現在の設定ではヒットしません。このドキュメントのシンボルが読み込まれません」 と表示され、ブレークポイントが使えません。 ・構成マネージャ→Debug ・クリーン→リビルド ・[元のバージョンと完全に一地するソースファイルを必要とする]をオフ は試したのですが、症状は変わらずです…。 以前は同じプログラムで普通にブレークポイントが使用できていたのですが 久しぶりにコードを編集しようと思ったときに上記のメッセージでデバッグが 出来ません。 「このドキュメントのシンボルが読み込まれません」が何のシンボルか分かれば 対処のヒントが得られると思うのですが…。 何か解決方法はありますでしょうか。

初めて質問させて頂きます。 VB.net2005を使用しているのですが、 ブレークポイントを設定しても、 「ブレークポイントは現在の設定ではヒットしません。このドキュメントのシンボルが読み込まれません」 と表示され、ブレークポイントが使えません。 ・構成マネージャ→Debug ・クリーン→リビルド ・[元のバージョンと完全に一地するソースファイルを必要とする]をオフ は試したのですが、症状は変わらずです…。 以前は同じプログラムで普通にブレークポイントが使用できていたのですが 久しぶりにコードを編集しようと思ったときに上記のメッセージでデバッグが 出来ません。 「このドキュメントのシンボルが読み込まれません」が何のシンボルか分かれば 対処のヒントが得られると思うのですが…。 何か解決方法はありますでしょうか。

お世話になります。 どなたか教えてください。 WINDOWSのシャットダウンの前に、OKorキャンセルのメッセージを出し、 OKならあるソフトを起動し、シャットダウン操作をキャンセル。 キャンセルならそのままシャットダウン操作を続行したいのですが、 どうしたらいいでしょうか？ グループポリシー→Windowsの設定→スクリプト→シャットダウンの所に下記のスクリプトを追加しましたが、自己完結するソフトではなくユーザーが操作するソフトの場合はダメなようです。 タイミング的にはスタート→シャットダウン→ここでメッセージを出したい→Windowsのシャットダウンのダイアログ 追加しようと思っているスクリプト Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") If MsgBox("ソフトを起動するには『キャンセル』ボタンを押してください。　　" _ , vbOKCancel) = vbcancel Then 'ソフトを起動。 objWshShell.Run """C:\Program Files\ソフト名.exe""" End If Set objWshShell = Nothing 質問のカテゴリーもここで良いのかどうかはっきりしませんが、どうぞよろしくお願いいたします。

VBAでのWindows API関数EnumWindowsの定義は下記になっています。 Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long そこで、コールバック関数(lpEnumFunc）へのパラメータ(lParam)に文字列を指定したくて定義を下記のように変更しましたが旨く行きません。（定義をこのように変更することが許されているかも分っていませんが） 　　変更前：ByVal lParam As Long 　　変更後：ByRef lParam As String EnumWindowsのコールバック関数へのパラメータに文字列を指定する方法があれば教えて頂きたくよろしくお願いします。

VBでCOMを使用してのIEを操作するアプリをネットの皆さんのお知恵を拝借しながら、曲がりなりにも当初考えていた全機能をサポートすることができました。 つきましては、アプリの終了前に必要と思われる後処理がありましたらご教示頂きたくよろしくお願いします。

こんにちはＶＢ学習を始めて２週間になりました。 Ｗｅｂの記事などを参考にしていますがバージョンによって記述が変わって苦戦しています。 今回ご質問したい内容です。 ボタンを押すとメモ帳が起動されているか調べてそのウィンドウタイトルを得る ウィンドウタイトルで検索してハンドルを取得してそのままそのハンドルで逆に ウィンドウタイトルを得ています（無意味な処理ですが学習用という事で） Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ECHandle As Integer Dim Titlename As String Titlename = vbNullString ECHandle = FindWindow(vbNullString, "無題 - メモ帳") GetWindowText(ECHandle, Titlename, 255) Label5.Text = Titlename If ECHandle = 0 Then Label4.Text = "取得できない" Else Label4.Text = "取得出来た" & ECHandle & Titlename End If End Sub 結果はというと Titlename が空っぽのままでタイトルが取得できません どのような原因が考えられますでしょうか？ よろしくお願いいたします。

今回初めて質問させていただきます。 現在、稼動しているシステムのソリューションを開こうとした際に 下記のメッセージが表示され、VBプロジェクトファイルを開くことができません。 「'(プロジェクトの場所)' を開けません。このバージョンのアプリケーションではサポートされないプロジェクトの種類（.vbproj）です。 この種類のプロジェクトをサポートするバージョンを使用してください。」 前回、開いてからそのプロジェクト自体には触っていないので、 過去のバージョンのプロジェクト Windows updateかVisual Studio自体の設定の問題かと予測しているのですが、 原因がつかめません。 【環境】 Microsoft Visual Studio 2008 Version 9.0.30729.1 SP Microsoft .NET Framework Version 3.5 SP1 Windows server 2008 sp2 知恵をお貸し下さい。 ちなみに以前にも同様の問題で質問が出ていたのですが、 参照ページのリンクが切れており、解決することができませんでした。 http://okwave.jp/qa/q4948668.html よろしくお願い致します。

かんたんYouTubeプレーヤーというソフトのウインドウハンドルを取得し、プレーヤーウインドウのサイズや位置を変更するプログラムをVB2008で作成しようとしました。このプレーヤーはリストウインドウとプレーヤーウインドウの二つがあるのですが、窓ちぇき！というソフトでタイトルとクラス名を調べたら二つとも同じタイトルとクラス名になっていました。これだとFindWindow関数でウインドウハンドルを取得できません。どうすればよいでしょうか。

中を見ていただき、ありがとうございます。 Visual Basic 6.0 をWinXP SP3で使って、メモを作っています。 機能としては非常に単純で、書き込み用のテキストボックス（以下Text1とします)と記録用のテキストボックス（つまりLocked=Trueとして書き込めないようにしている：以下Text2とします）があって、（１）Text1にメモを書いてEnterを押せば、（２）その内容がText2に転写され、（３）Text1の内容は消える、というものです。 ところが、以下のプログラムによってこれを実装しようとしたところ、Text1からText2への転写はうまくいくものの、2回目以降はText1の1行目が自動的に改行された状態になってしまい、必ず2行目から文章を打たなくてはいけないようになってしまいます。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.Text = Text2.Text & vbclrf & Text1.Text Text1.Text = "" End If End Sub 使用する上では特に問題無いのですが、見た目が少し悪いので、この1行目の「自動改行」をキャンセルする方法をご存知の方がいらっしゃいましたら、ご教授くださいますようお願い致します。

中を見ていただき、ありがとうございます。 Visual Basic 6.0 をWinXP SP3で使って、メモを作っています。 機能としては非常に単純で、書き込み用のテキストボックス（以下Text1とします)と記録用のテキストボックス（つまりLocked=Trueとして書き込めないようにしている：以下Text2とします）があって、（１）Text1にメモを書いてEnterを押せば、（２）その内容がText2に転写され、（３）Text1の内容は消える、というものです。 ところが、以下のプログラムによってこれを実装しようとしたところ、Text1からText2への転写はうまくいくものの、2回目以降はText1の1行目が自動的に改行された状態になってしまい、必ず2行目から文章を打たなくてはいけないようになってしまいます。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.Text = Text2.Text & vbclrf & Text1.Text Text1.Text = "" End If End Sub 使用する上では特に問題無いのですが、見た目が少し悪いので、この1行目の「自動改行」をキャンセルする方法をご存知の方がいらっしゃいましたら、ご教授くださいますようお願い致します。

中を見ていただき、ありがとうございます。 Visual Basic 6.0 をWinXP SP3で使って、メモを作っています。 機能としては非常に単純で、書き込み用のテキストボックス（以下Text1とします)と記録用のテキストボックス（つまりLocked=Trueとして書き込めないようにしている：以下Text2とします）があって、（１）Text1にメモを書いてEnterを押せば、（２）その内容がText2に転写され、（３）Text1の内容は消える、というものです。 ところが、以下のプログラムによってこれを実装しようとしたところ、Text1からText2への転写はうまくいくものの、2回目以降はText1の1行目が自動的に改行された状態になってしまい、必ず2行目から文章を打たなくてはいけないようになってしまいます。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.Text = Text2.Text & vbclrf & Text1.Text Text1.Text = "" End If End Sub 使用する上では特に問題無いのですが、見た目が少し悪いので、この1行目の「自動改行」をキャンセルする方法をご存知の方がいらっしゃいましたら、ご教授くださいますようお願い致します。

中を見ていただき、ありがとうございます。 Visual Basic 6.0 をWinXP SP3で使って、メモを作っています。 機能としては非常に単純で、書き込み用のテキストボックス（以下Text1とします)と記録用のテキストボックス（つまりLocked=Trueとして書き込めないようにしている：以下Text2とします）があって、（１）Text1にメモを書いてEnterを押せば、（２）その内容がText2に転写され、（３）Text1の内容は消える、というものです。 ところが、以下のプログラムによってこれを実装しようとしたところ、Text1からText2への転写はうまくいくものの、2回目以降はText1の1行目が自動的に改行された状態になってしまい、必ず2行目から文章を打たなくてはいけないようになってしまいます。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.Text = Text2.Text & vbclrf & Text1.Text Text1.Text = "" End If End Sub 使用する上では特に問題無いのですが、見た目が少し悪いので、この1行目の「自動改行」をキャンセルする方法をご存知の方がいらっしゃいましたら、ご教授くださいますようお願い致します。

VB2008を勉強しながら、プログラム開発を行っています。 VB6の時にはMIDB関数が存在したのですが、VB2008では、MIDB関数が無くなっていました。 プログラム作成にあたり、文字列のバイト操作が必要になり、Leftb、RitghB、MIDBを 作成しているのですが、全く分からない状態です。 SHIFT-JISコードに変換してバイト配列よりすればいいと他のサイトに載っていたので それを参考にしていたのですが、全角文字が存在した時に、文字化けをおこしてしまい 正常な文字で表示されないようになってしまいました。 全角文字の半分の1バイトの場所での指定だったので文字化けを起こしている事は 分かったのですが、これを空白にする事は可能なのでしょうか？ また、バイト操作を行うサンプル等がありましたら、教えて頂けないでしょうか？ 以上

VBのToolStripの背景を下の画像のようにできませんか？ちなみにこの画像はIE8のものです。 もうひとつカーソルをBottonに置くとジワーッと上がってくるようにするためにはどうすればいいですか？よろしくおねがいします。

ふたつの温度計があって、室温が２３度外気温が１８度の場合、 シリアル通信によって２３１８としておくられてきます。 そしてこれがTextBox2に２３１８と表示されます。 Delegate Sub DataDelegate(ByVal sdata As String) Private Sub PrintData(ByVal sdata As String) TextBox2.Text = sdata End Sub ここまではなんとかうまくいきました。ここからが質問なんですが、 このsdataをTextBox3とTextBox4に２３℃、１８℃と分けて表示したいのですが うまくいきません。substringを使って、 　sdata = sdata.Substring(0, 2) 　TextBox3.Text = sdata などとやってみましたが 「インデックスおよび長さは文字列内の場所を参照しなければなりません。」 とエラーとなってうまくいきません。どう書いたらいいのかおしえてください。 尚、シリアル通信は改行コードを頭につけて、\r\n2318　と連続的に送られてくる んですがこれが問題なんでしょうか。

ふたつの温度計があって、室温が２３度外気温が１８度の場合、 シリアル通信によって２３１８としておくられてきます。 そしてこれがTextBox2に２３１８と表示されます。 Delegate Sub DataDelegate(ByVal sdata As String) Private Sub PrintData(ByVal sdata As String) TextBox2.Text = sdata End Sub ここまではなんとかうまくいきました。ここからが質問なんですが、 このsdataをTextBox3とTextBox4に２３℃、１８℃と分けて表示したいのですが うまくいきません。substringを使って、 　sdata = sdata.Substring(0, 2) 　TextBox3.Text = sdata などとやってみましたが 「インデックスおよび長さは文字列内の場所を参照しなければなりません。」 とエラーとなってうまくいきません。どう書いたらいいのかおしえてください。 尚、シリアル通信は改行コードを頭につけて、\r\n2318　と連続的に送られてくる んですがこれが問題なんでしょうか。

vbからshellを使って、cで書いた実行ファイルを起動しています。 その起動した実行ファイルの表示位置を指定したいのですが、どうしたらよいのかわかりません。 もしかしてshellでは無理なのでしょうか？ それともcのコードに変更を加えるべきなのでしょうか？ cの方はOpenCVで、ウィンドウ生成が「cvNamedWindow(windowName名前)」で行っているので、 これもどう位置を指定したらよいのかわかりません。。。 どなたかわかる方よろしくお願いします。

vb.netにて。。。 excelのグラフをピクチャーボックスにて 表示するプログラムを組んでおります。 使用するexcelは、excel2007（.xlsx形式）とexcel2002（.xls形式）です。 パソコンによって、入っているexcelが違うので、 どちの形式でも実行できるようにしたいです。 （問題） 2007では、正規のものがちゃんと表示されますが、 2002では、グラフの1/4程度の部分しか表示されません。 　　　　　'クリップボードを初期化 Clipboard.Clear() 　　　 　 'クリップボードにコピー Dim ChartSheet As Object Dim ChartSheets As Object = objWorkBook.Sheets Dim Chartobj As Object 'Dim ChartGraph As Object ChartSheet = objWorkBook.Sheets((exlsht)) Chartobj = ChartSheet.ChartObjects((exlgra)) Chartobj.CopyPicture(Appearance:=1, Format:=2) System.Threading.Thread.Sleep(2000) Application.DoEvents() '---------- クリップボード経由でPictureに貼り付け ------------------ If Clipboard.ContainsImage() Then 'クリップボードにあるデータの取得 Dim img As Image = Clipboard.GetImage() If img IsNot Nothing Then System.Threading.Thread.Sleep(2000) 'データが取得できたときは表示する Form_PictureBox.PictureBox1.AutoSize = True Form_PictureBox.PictureBox1.Image = img System.Threading.Thread.Sleep(2000) End If End exlshtは.xlsx形式か.xls型式かを選択したものが exlgraは”グラフ１”を指定します。 クリップブックを使用してみてみると、 その段階で1/4程度のものをコピーしています。 Chartobj.CopyPicture ではだめなのでしょうか？ ちなみに、エクセルの参照をすると、 2002ではえらーになるので、 Object型式で呼び出しています。 非常に困っております。 よろしくご教授願います。