这样的效果是如何实现的？

2009-06-06 01:37:26 82 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

billow_chentao 墨衍会员 · AI 创作全网分发关注 + 加入社区

opengl实现Bloom效果什么是Bloom 参考：http://blog.csdn.net/jxw167/article/details/60764506 本例同时涉及到HDR相关知识：HDR 参考：http://blog.csdn.net/jxw167/article/details/60475929 效果图渲染入口 #include #include "glew.h" #include # 阅读详情

在WINDOWS的事件查看器里，主窗口中ListView控件里里显示了所有的日志记录，当双击某一行记录时，跳出一个“事件属性”窗口，属性窗口中有两个按钮上一条和下一条，当点了这两个按钮后，发现主窗口中ListView控件里的当前行在同步变化。
我就想问这个同步变化主窗口里的当前记录行是怎么实现的？

...全文

Android实现弹幕效果相信大家看视频的时候都会有弹幕效果，这似乎已经成为视频软件的标配，接下来让我们来看看如何实现这个弹幕效果。一.弹幕效果分析我可以看到，弹幕效果是在屏幕上方飘过，即从屏幕外一端出现，一直在屏幕中飘动至屏幕另一端，我们将其实现逻辑进行分解如下： 1.一个viewGroup中包含多个textView 2.textView包含平移动画经过分解发现阅读详情

billow_chentao

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

wzuomin 2009-06-06

打赏
举报

方法有很多，下面只列出一种，lz把代码拷贝试试看吧。

Public Class Form1



    Private lstView As ListView



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lstView = New ListView With {.View = View.Details, .Dock = DockStyle.Fill, .HideSelection = False, .FullRowSelect = True}

        AddHandler lstView.DoubleClick, AddressOf lstView_DoubleClick

        lstView.Columns.Add("ID")

        lstView.Columns.Add("Info")

        For i As Integer = 0 To 50

            Dim item As ListViewItem = lstView.Items.Add(i.ToString)

            item.SubItems.Add("Details:" + Now.Ticks.ToString)

            Threading.Thread.Sleep(20)

        Next

        Me.Controls.Add(lstView)

    End Sub



    Private Sub lstView_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim frm As New frmDetail(lstView)

        frm.ShowDialog()

    End Sub

End Class



Public Class frmDetail

    Inherits System.Windows.Forms.Form



    Private btnUp As New Button

    Private btnDown As New Button

    Private txtBox As New TextBox

    Private mListView As ListView



    Public Sub New(ByRef lstView As ListView)

        Call init()

        mListView = lstView

        If mListView.SelectedItems.Count > 0 Then

            txtBox.Text = mListView.SelectedItems(0).SubItems(1).Text

        End If

    End Sub



    Private Sub init()

        btnUp = New Button With {.Text = "上一条", .Location = New Point(10, 5)}

        btnDown = New Button With {.Text = "下一条", .Location = New Point(100, 5)}

        txtBox = New TextBox With {.Multiline = True, .ScrollBars = ScrollBars.Vertical, .Location = New Point(10, 40), .Size = New Size(200, 100)}

        AddHandler btnUp.Click, AddressOf Up

        AddHandler btnDown.Click, AddressOf Down

        Me.Controls.Add(btnUp)

        Me.Controls.Add(btnDown)

        Me.Controls.Add(txtBox)

    End Sub



    Private Sub Up(ByVal sender As Object, ByVal e As EventArgs)

        Dim index As Integer = mListView.SelectedItems(0).Index

        If index > 0 Then

            index -= 1

            mListView.SelectedItems.Clear()

            mListView.Items(index).Selected = True

            mListView.EnsureVisible(index)

            txtBox.Text = mListView.SelectedItems(0).SubItems(1).Text

        End If

    End Sub



    Private Sub Down(ByVal sender As Object, ByVal e As EventArgs)

        Dim index As Integer = mListView.SelectedItems(0).Index

        If index < mListView.Items.Count - 1 Then

            index += 1

            mListView.SelectedItems.Clear()

            mListView.Items(index).Selected = True

            mListView.EnsureVisible(index)

            txtBox.Text = mListView.SelectedItems(0).SubItems(1).Text

        End If

    End Sub



End Class

hanjs 2009-06-06

打赏
举报

能得到主窗口的句柄就能操作里面的内容了吧.

这样的效果是如何实现的？

相关推荐