无为清净楼资源网 Design By www.qnjia.com
最前面的话:Smobiler是一个在VS环境中使用.Net语言来开发APP的开发平台,也许比Xamarin更方便
一、目标样式
我们要实现上图中的效果,需要如下的操作:
1.从工具栏上的”Smobiler Components”拖动一个MicroBlog控件到窗体界面上
2.用代码添加手机界面上显示的内容
Load事件代码:
VB:
Private Sub TestMicroBlog_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try 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 Try End 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()); } }
其他代码:
VB:
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 = 6 Dim imageList As New List(Of String) imageList.Add(6) Dim item As New MicroBlogItem(user, user, contentArray(0), DateTime.Now.ToString) item.Pictures = imageList item.ILikes.Add(userarray(0), userarray(0)) If insert = False Then Me.MicroBlog1.BlogItems.Add(item) Else Me.MicroBlog1.BlogItems.AddTop(item) End If Next End 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); } else this.MicroBlog1.BlogItems.AddTop(item); } }
二、手机效果显示
以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持。
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月27日
2024年09月27日
- 群星《完美的她 影视原声带》[FLAC/分轨][141.05MB]
- 山风点伙.1997-深藏不露【立得】【WAV+CUE】
- 李幸倪.2018-First.Of.All.Live.Concert.3CD(2024环球红馆40复刻系列)【环球】【WAV+CUE】
- 李恕权.2003-回·20年全精选2CD【SONY】【WAV+CUE】
- 群星《你就在我身边 电影原声专辑》[320K/MP3][26.68MB]
- 群星《你就在我身边 电影原声专辑》[FLAC/分轨][70.27MB]
- 班得瑞原装进口《20周年精选集》1CD[APE/CUE分轨][303MB]
- 群星.2009-NOON.D.广东.2CD【新世纪】【WAV+CUE】
- 洪卓立.2012-GROWN.UP【英皇娱乐】【WAV+CUE】
- 梁静茹.2007-崇拜【相信音乐】【WAV+CUE】
- 金佩姗.1997-喜新恋旧【现代派】【WAV+CUE】
- 梁静茹.2007-崇拜【相信音乐】【WAV+CUE】
- 陈晓东.1997-在乎你感受(EP)【宝丽金】【WAV+CUE】
- 纯音入心系列纯音乐《云水禅心 - 佛曲古筝礼赞1-2》1CD[MP3][190MB]
- 纯音入心系列纯音乐《精心传神-古筝》1CD[MP3][363.1MB]