自フォームがアクティブでない状態でもそのまま自動で選択項目を変えられるようにしたいのですが、(ListViewの何か).SelectedIndices.Clear() とか (ListViewの何か).Items(i).Selected = False の場合、勝手に自フォームがアクティブになってしまうので困っています。
OSはWindows8.1です。よろしくお願い致します。
Public Class Form1 Private selectedIndex As Integer = 0 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick ListView1.SelectedItems.Clear() Me.selectedIndex += 1 If Me.selectedIndex >= ListView1.Items.Count Then Me.selectedIndex = 0 End If ListView1.Items(Me.selectedIndex).Selected = True ListView1.Items(Me.selectedIndex).Focused = False End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ListView1.HideSelection = False ListView1.Items.Clear() ListView1.Items.Add("foo1") ListView1.Items.Add("foo2") ListView1.Items.Add("foo3") Timer1.Interval = 1000 Timer1.Start() End Sub End Class
上記のコードで試しましたが、フォーム自身にフォーカスがあたる事はありませんでした。