• .Net语言 APP开发平台——Smobiler学习日志:如何仿微信朋友圈的消息样式?


    最前面的话:Smobiler是一个在VS环境中使用.Net语言来开发APP的开发平台,也许比Xamarin更方便

     

    一、目标样式

    smobiler

    我们要实现上图中的效果,需要如下的操作:

    1.从工具栏上的”Smobiler Components”拖动一个MicroBlog控件到窗体界面上

    smobiler

    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);
            }
        }

    二、手机效果显示

    smobiler smobiler smobiler
  • 相关阅读:
    React中jquery引用
    实现table的单线边框的办法
    学习网站
    React.createElement: type is invalid -- expected a string (for built-in components) or a class/function (for composite components) but got: undefined.
    使用rgba设置输入框背景透明
    转: HTML5之placeholder属性以及如何更改placeholder属性中文字颜色
    转:jquery操作元素的css样式(获取、修改等等)
    购物车抛物线动画效果
    转: jquery.qrcode.js生成二维码插件&转成图片格式
    Chatbot中的填槽(Slot Filling)(转)
  • 原文地址:https://www.cnblogs.com/amanda112/p/5764439.html
Copyright © 2020-2023  润新知