介绍, Private Sub TestMicroBlog_Load (sender As 对象,,e As EventArgs), Handles MyBase.Load
,试一试
,,Me.MicroBlog1.DefaultUserName =,“伟斌,
,,Me.MicroBlog1.DefaultUserID =,“伟斌,
,,contentArray(0),=,“把青春献给身后那座“+,vbCrLf +,“辉煌的城市“,+,vbCrLf +,“为了这个美梦“,+,vbCrLf +,“我们付出着代价”;
,,
,,userarray(0),=,“伟斌,
,,picturearray (0),=0
,,InitialMicroBlogData ()
Catch 才能;ex As 例外
,,MessageBox.Show (ex.Message,子(),Me.Close ())
最终获得才能试一试
最终获得Sub C #:
,private void TestMicroBlog_Load (object ,发送方,EventArgs e)
,{
,试一试
{才能
,,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 交货)
{才能
,,MessageBox.Show (ex.Message, (Object 年代,MessageBoxHandlerArgs args),=祝辞,this.Close ());
,,}
以前,} , Dim contentArray (4), As 字符串
,Dim userarray (4), As 字符串
,Dim picturearray (8), As 字符串
声音,Dim (5), As 字符串
,Private Sub InitialMicroBlogData (Optional count As Integer =, 10日,Optional ByVal insert As Boolean =,假)
Dim 才能user As String =, userarray (0)
Dim 才能picturerandomnum As Integer =6
Dim 才能imageList As New 列表(Of 字符串)
imageList.Add才能(6)
,,
Dim 才能item As New MicroBlogItem(用户,用户,contentArray (0), DateTime.Now.ToString)
item.Pictures 才能=imageList
item.ILikes.Add才能(userarray (0), userarray (0))
If 才能;insert =False 然后
,,,Me.MicroBlog1.BlogItems.Add(项)
其他的才能
,,,Me.MicroBlog1.BlogItems.AddTop(项)
,最终获得;如果
,下一个
最终获得Sub C #:
,string [] contentArray =, new 字符串[5];
,string [] userarray =, new 字符串[5];
,string [] picturearray new 字符串[9];
,string [] voice =, new 字符串[6];
,private void InitialMicroBlogData (int count =, 10日,bool insert =,假)
,{
string 才能;user =, userarray [0];
List<才能;string>, imageList =, new List ();
imageList.Add才能(“6“),,,,,
MicroBlogItem 才能;item =, new MicroBlogItem(用户,用户,contentArray [0],, DateTime.Now.ToString ());
时间=item.Pictures 才能;imageList;
item.ILikes.Add才能(userarray [0],, userarray [0]);
if 才能;(insert ==,假)
{才能
,,,this.MicroBlog1.BlogItems.Add(项);
,,}
其他的才能
,,,this.MicroBlog1.BlogItems.AddTop(项);
,,}
null
这篇文章给大家分享的是有关Smobiler如何模仿微信朋友圈的消息样式的内容。小编觉得挺实用的,因此分享给大家做个参考,一起跟随小编过来看看吧。
<强>一、目标样式
我们要实现上图中的效果,需要如下的操作:
1。从工具栏上的“Smobiler组件”拖动一个微博控件到窗体界面上
2。用代码添加手机界面上显示的内容
加载事件代码:VB:
其他代码:
VB:
