我们要实现上图中的效果,需要如下的操作:
1.从工具栏上的”Smobiler Components”拖动一个MicroBlog控件到窗体界面上
2.用代码添加手机界面上显示的内容
Load事件代码:
VB:
Private Sub TestMicroBlog_Load(sender As Object, e As EventArgs) Handles MyBase.LoadTry Me.MicroBlog1.DefaultUserName = "伟斌" Me.MicroBlog1.DefaultUserID = "伟斌" contentArray(0) = "把青春献给身后那座"+ vbCrLf + "辉煌的城市" + vbCrLf + "为了这个美梦" + vbCrLf + "我们付出着代价"userarray(0) = "伟斌" picturearray(0) = 0 InitialMicroBlogData()Catch ex As Exception MessageBox.Show(ex.Message, Sub() Me.Close())End TryEnd Sub C#: private void TestMicroBlog_Load(object sender, EventArgs e) {try{ this.MicroBlog1.DefaultUserName = "伟斌"; this.MicroBlog1.DefaultUserID = "伟斌"; contentArray[0] = "把青春献给身后那座" + System.Environment.NewLine + "辉煌的城市" + System.Environment.NewLine + "为了这个美梦"+ System.Environment.NewLine + "我们付出着代价";userarray[0] = "伟斌"; picturearray[0] = "0"; InitialMicroBlogData();}catch (Exception ex){ MessageBox.Show(ex.Message, (Object s, MessageBoxHandlerArgs args) => this.Close());} }其他代码:
Dim contentArray(4) As String Dim userarray(4) As String Dim picturearray(8) As String Dim voice(5) As String Private Sub InitialMicroBlogData(Optional count As Integer = 10, Optional ByVal insert As Boolean = False)Dim user As String = userarray(0)Dim picturerandomnum As Integer = 6Dim imageList As New List(Of String)imageList.Add(6)Dim item As New MicroBlogItem(user, user, contentArray(0), DateTime.Now.ToString)item.Pictures = imageListitem.ILikes.Add(userarray(0), userarray(0))If insert = False ThenMe.MicroBlog1.BlogItems.Add(item)ElseMe.MicroBlog1.BlogItems.AddTop(item)End If NextEnd Sub C#: string[] contentArray = new string[5]; string[] userarray = new string[5]; string[] picturearray new string[9]; string[] voice = new string[6]; private void InitialMicroBlogData(int count = 10, bool insert = false) {string user = userarray[0];List<string> imageList = new List<string>();imageList.Add("6");MicroBlogItem item = new MicroBlogItem(user, user, contentArray[0], DateTime.Now.ToString());item.Pictures = imageList;item.ILikes.Add(userarray[0], userarray[0]);if (insert == false){this.MicroBlog1.BlogItems.Add(item);}elsethis.MicroBlog1.BlogItems.AddTop(item);} }二、手机效果显示
以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持脚本之家。