OS:Windows 7 64bit
開発環境：Visual Studio 2013 Express
リッチテキストボックスでキャレットの幅を変更したいのですが、うまくいきません。
-------------------------------------------------------------
'キャレットを作成する
Private Declare Function CreateCaret Lib "user32" _
(ByVal hWnd As IntPtr, _
ByVal hBitmap As IntPtr, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer _
) As Boolean
'キャレットを表示する
Private Declare Function ShowCaret Lib "user32" _
(ByVal hWnd As IntPtr) As Boolean
Private Sub RichTextBox1_Enter(sender As Object, e As EventArgs) Handles RichTextBox1.Enter
'CreateCaret(RichTextBox1.Handle, IntPtr.Zero, 7, 15)
CreateSolidCaret(5, 10)
ShowCaret(RichTextBox1.Handle)
End Sub
-------------------------------------------------------------
以上のようにして RichTextBox1 にフォーカスが来た時にキャレットの幅を変えるようにしているのですが、一度だけフォーカスが来た時にほんの一瞬だけ四角いキャレットが見えるのですが、すぐにＩ型に戻ってしまいます。
ググっても上記ソースくらいしか見つかりませんでした。
どなたかご享受願えませんでしょうか？
よろしくお願い致します。
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles cmd_ボタン.Click
System.Diagnostics.Process.Start("notepad.exe")
End Sub
これでメモ帳を開くことはできたのですが、最大化するにはどうすればいいでしょうか？
System.Diagnostics.Process.Start("notepad.exe") ,vbMaximizedFocus
にすると
エラーステートメントの終わりを指定してください。
になってしまいます。
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles cmd_ボタン.Click
System.Diagnostics.Process.Start("notepad.exe")
End Sub
これでメモ帳を開くことはできたのですが、最大化するにはどうすればいいでしょうか？
System.Diagnostics.Process.Start("notepad.exe") ,vbMaximizedFocus
にすると
エラーステートメントの終わりを指定してください。
になってしまいます。
Form1にドラッグドロップ機能を導入しようと思い
AllowDropプロパティをTrueにしてDragDropイベントとDragEnterイベントを記述しました。
実際にデバックしてみるとうまく機能して安心したのですが
後で、bin/debug/AAA.exeを直接クリックしてみるとなぜか機能しません。
MyBase.LoadイベントにMyBase.AllowDrop=Trueと記述してみたいのですがダメでした。
何か設定が間違ってるのでしょうか？
ぜひご回答お願いします。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyBase.AllowDrop = True
End Sub
Private Sub drag_drop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim list As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
For Each a In list
MsgBox(a)
Next
End Sub
Private Sub drag_enter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
e.Effect = DragDropEffects.Copy
End Sub
vb.netからエクセルファイルを開きたいのですが、
オフィス２０１０をインストールしてから動作しなくなりました。
------------------------------------------------------------------------
Imports Microsoft.Office.Interop
Sub ExcelOpen()
Dim ExcApp As Excel.Application
Dim book As Excel.Workbook
Dim MyPath As String
MyPath = "C:\Excel.xlsm"
ExcApp = CreateObject("Excel.Application")
ExcApp.Visible = True
book = ExcApp.Workbooks.Open(MyPath)
ExcApp = Nothing
End Sub
------------------------------------------------------------------------
これで２００７の時は起動してたのですが、２０１０だとダメです。
Microsoft Excel 14.0 Object Libraryに参照設定しています。
実行すると、 ExcApp.Visible = True の部分で
サーバーによって例外が返されました。 (HRESULT からの例外: 0x80010105 (RPC_E_SERVERFAULT))
となります。
どうすればいいでしょうか？ご教授よろしくお願いします。
VBで特定のリンクをクリックしたく様々なソースを
見て似たような記述は数多く見かけたのですが、
私のクリックしたいリンクが特殊でどうもうまく
クリック出来ません。
■Visual Studio、Windowsフォームアプリケーション利用
■クリックしたいリンクについて
・<li class="menu_cate"><a href="new.html" title="NEWページ"></a></li>
「リンク詳細」
リンク先は画像となっており、画像名がありません。
li class、a href それぞれの値（menu_cate、new.html）は、共にページ内では1つだけです。
上記のリンクをクリックしたいので、「menu_cate」、「new.html」、「NEWページ」のいずれかを
検知してクリックをしたいと思い下記を記述してみたのですがうまくいきません。
是非どなたかご教授くださいますようお願い致します。
Dim Element As HtmlElement = Nothing
For Each Element In WebBrowser1.Document.All.GetElementsByName("A")
If Element.InnerText = "NEWページ" Then
Element.InvokeMember("Click") 'クリックする
Exit For
End If
Next
※Element.InnerTextの部分は色々変えてみたのですが、
リンクできませんでした。
VBで特定のリンクをクリックしたく様々なソースを
見て似たような記述は数多く見かけたのですが、
私のクリックしたいリンクが特殊でどうもうまく
クリック出来ません。
■Visual Studio、Windowsフォームアプリケーション利用
■クリックしたいリンクについて
・<li class="menu_cate"><a href="new.html" title="NEWページ"></a></li>
「リンク詳細」
リンク先は画像となっており、画像名がありません。
li class、a href それぞれの値（menu_cate、new.html）は、共にページ内では1つだけです。
上記のリンクをクリックしたいので、「menu_cate」、「new.html」、「NEWページ」のいずれかを
検知してクリックをしたいと思い下記を記述してみたのですがうまくいきません。
是非どなたかご教授くださいますようお願い致します。
Dim Element As HtmlElement = Nothing
For Each Element In WebBrowser1.Document.All.GetElementsByName("A")
If Element.InnerText = "NEWページ" Then
Element.InvokeMember("Click") 'クリックする
Exit For
End If
Next
※Element.InnerTextの部分は色々変えてみたのですが、
リンクできませんでした。
VB.NET(VB 2010 Express)でIE9をWebBrowserコントロールではなく直接操作しています。
先にここで、あるサイトのトップページを表示し、それにユーザID、パスワードを入力し、ログオンボタンをクリックして次のページを別タブで表示する方法を教えて頂きました。
そこで、別タブに表示した次ページのHTMLソースを取得する方法として、下記のコードを教えて頂きました。
Dim objIE As Object
objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate("http://login.yahoo.co.jp/")
Do While objIE.Busy
System.Threading.Thread.Sleep(500)
Loop
objIE.Document.login_form.login.Value = "xxxxx" 'ユーザIDを入力
objIE.Document.login_form.passwd.Value = "yyyyy" 'パスワードを入力
objIE.Document.login_form.target = "_blank" '別ページに表示
objIE.Document.login_form.submit()
Dim Shell As Object
Dim win As Object
Dim newObjIE As Object
Shell = CreateObject("Shell.Application")
For Each win In Shell.Windows
If TypeName(win.document) = "HTMLDocument" Then 'このif文がTrueにならない
If win.document.URL = "http://yahoo.co.jp" Then
newObjIE = win
Exit For
End If
End If
Next
しかし、コメントのあるif文がTrueにならないようです。修正方法を教えて頂きたくよろしくお願い致します。
KeyPress イベントプロシージャの設定で
Private Sub Button1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar(Keys.F) Then
End If
End Sub
この中にボタン1の命令をさせたいとき、どのように書けばいいんでしょうか？
Visual Basic 2010です
コードを教えてください、お願いします
KeyPress イベントプロシージャの設定で
Private Sub Button1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar(Keys.F) Then
End If
End Sub
この中にボタン1の命令をさせたいとき、どのように書けばいいんでしょうか？
Visual Basic 2010です
コードを教えてください、お願いします
